Форум Команды NeTTeam

Перенесенная тема

Нужна помощь. В текстовом файле есть текст, который необходимо отформатировать в соответствии с образцом. Например дописать или убрать «0» в определенных местах. Причем, т.к. «0» цифра распространенная, то сначала надо найти кусок текста по шаблону, в нем маленький кусок текста, и там уже дописывать или стирать «0». И так надо проверить весь текст. Надо как-то написать цикл, но в этом совсем не селен. Через запись макросов в word записал макрос, который дописывает «0» в нужном мне месте, но вот как зациклить - не знаю. Естественно тут много мусора, но это word так все вписывает. Надо как-то go to наверно прописать. Но вот куда?

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 20.08.2007 maximace
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "УСК-??-??-???-?#"
.Replacement.Text = "0^&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
With Selection.Find
.Text = "УСК-??-??-???-?#"
.Replacement.Text = "0^&"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.ClearFormatting
With Selection.Find
.Text = "?#"
.Replacement.Text = "0^&"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "?#"
.Replacement.Text = "0^&"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
End Sub

вот такой вот текст. Поможете?

Постараюсь найти решение твоей проблемы, но сам я макросы никогда не писал и с текстом такой штуки не проделывал...

Немного непонятно. Я в VBA разбираюсь неплохо. Ты бы прислал файлик текстовый и объяснил там что на на что заменять.