Word 2007 Макросы: найти текст и заменить шрифт

[lapin9126]

Здравствуйте. Помогите с макросом: найти текст, в конкретном случае "(" скобка, и изменить ей шрифт на Wingdings.

[Администратор]

Sub Макрос()

    '1. Замена.
    With ActiveDocument.Range.Find
        .Text = "("
        .Replacement.Font.Name = "Wingdings"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
   
    '2. Сообщение.
    MsgBox "Готово.", vbInformation
   
End Sub

[lapin9126]

Спасибо. Вы очень помогли в очередной раз.