Тема: Макрос поиска по всему документу
Добрый день! Мне надо осуществить поиск по всему документу определенного слова и заменить его на юникод. Так как в ворде нельзя делать замену на юникод, то я пытаюсь сделать как-то так:
Selection.Find.ClearFormatting
With Selection.Find
.Text = "бла бла бла ("
.Replacement.Text = "бла бла бла ()"
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.InsertSymbol Font:="Calibri", CharacterNumber:=196, Unicode:= _
True
End Sub
Т.е. что происходит: он ищет бла бла бла (, потом курсор правее и вставляет юникод. Все работает только если бла бла бла ( встречается 1 раз. А у меня таких много и надо такое проделать с каждым по всему документу. Т.е. сделать цикл что лили. Подскажите код, пожалуйста.