Имеется документ, в котором по нажатию кнопки нужно найти все слова состоящие ровно из 5 букв и подчеркнуть их одной чертой.
Если задача узкая, то может быть будет достаточно такого кода.
Этот код работает только со словами, в которых кириллица (буквы русского алфавита).
Sub Макрос()
With ActiveDocument.Range.Find
.Text = "<[А-Яа-яЁё]{5}>"
.Replacement.Font.Underline = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Спасибо огромное, всё работает.