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

Автор lapin9126, 27 августа 2016, 17:25

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

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