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

[Polotenchik]

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

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

[Aent]

Непонятно кто мешает вам добавить символ Ä сразу к замещающему тексту ?
Например, используя ChrW.
И делайте после этого глобальную замену ...

[Polotenchik]

1. Это как ? написано же, что юникод нельзя заменять: http://support.microsoft.com/kb/214204/ru
Сказано, что юникод пожно использовать только в поле найти. Подскажите, пожалуйста, как сделать?

П.С. А, Вы не поняли! Данный символ я привел для примера. На самом деле мне нужны символы с кодом 03B7, что в юникод находятся.

2. Мне все равно надо как-то это дело зациклить. не только для этого примера. Вот еще например:

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "бугага"
        .Replacement.Text = "t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Здесь он ищет слово бугага, выделяет его, после имитирует нажатие кнопки Home и делит, тем самым удаляя все, что перед словом бугага. Но опять же так надо проделать по всему документу.

[Казанский]

> Так как в ворде нельзя делать замену на юникод

В диалоге может и нельзя, а в VBA можно
Запишите макрорекордером замену во всем документе, в строке замены напишите

.Replacement.Text = ChrW(&H3B7)

[Polotenchik]

Казанский, это не главное! Мне все равно как-то надо зациклить. Смотрите пример выше. Помогите, очень прошу.

[Казанский]

Исходный вопрос был
Мне надо осуществить поиск по всему документу определенного слова и заменить его на юникод.
Я и предлагаю записать команду замены с нажанием кнопки "Заменить все" и подставить символ юникода в нужное место.
Зацикливание происходит в последнем операторе.

Sub Макрос1()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "бугага"
        .Replacement.Text = ChrW(&H3B7)
        .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

[Polotenchik]

Ну а если я немного изменю исходный вопрос: надо сделать, как в 3 посте например.

[Polotenchik]

К стати не пойму чето. Например у такого кода:

номер 0398
А в макросе надо ввести H3B8, что бы получить такой символ. Это как?

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

[Казанский]

398 - прописная буква, 3B8 - строчная буква.

Придумал кривоватый способ зацикливания:

Sub Макрос2()
With Selection
    .HomeKey Unit:=wdStory
    .Find.ClearFormatting
    With .Find
        .Text = "WIN"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    .Find.Execute
    Do
        .Copy
        .MoveDown Unit:=wdLine, Count:=2
        .Paste
        .Find.Execute
    Loop Until .Text = vbCr
End With
End Sub

[Sasha_Smirnov]

Прокрутите вниз — там похожие темы.

В частности и пример цикла при поиске: http://programmersforum.ru/showthread.php?t=146988 (с комментами)