Тема: Поиск и замена за один проход
Добрый день.
Допустим есть макрос прооизводящий поиск и замену два раза:
1) «Он» меняем на «Человек»,
2) «За» — на «Нет».
Sub PZ()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = "Он"
.Replacement.text = "Человек"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.text = "За"
.Replacement.text = "Нет"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Что нужно поменять в коде, чтобы две эти замены производились за один проход? Спасибо.
