1 Тема от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Тема: Макрос поиска по всему документу

Добрый день! Мне надо осуществить поиск по всему документу определенного слова и заменить его на юникод. Так как в ворде нельзя делать замену на юникод, то я пытаюсь сделать как-то так:

    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 раз. А у меня таких много и надо такое проделать с каждым по всему документу. Т.е. сделать цикл что лили. Подскажите код, пожалуйста.

2 Ответ от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Re: Макрос поиска по всему документу

П.С. Вот мне например необходимо по всему документу найти слово WIN, скопировать его отпустить курсор вниз на 2 позиции и вставить. Как это сделать для первого найденного слова WIN понятно, а если их много в документе? Как же проделать такое для всего документа?