Здравствуйте. Помогите с макросом: найти текст, в конкретном случае "(" скобка, и изменить ей шрифт на 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
Спасибо. Вы очень помогли в очередной раз.