Word VBA Макросы: Поиск 5-буквенных слов и подчёркивание их.

[Андиневский]

Имеется документ, в котором по нажатию кнопки нужно найти все слова состоящие ровно из 5 букв и подчеркнуть их одной чертой.

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

Если задача узкая, то может быть будет достаточно такого кода.
Этот код работает только со словами, в которых кириллица (буквы русского алфавита).

Sub Макрос()
   
    With ActiveDocument.Range.Find
        .Text = "<[А-Яа-яЁё]{5}>"
        .Replacement.Font.Underline = True
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With

End Sub

[Андиневский]

Спасибо огромное, всё работает.