Word Макросы: Преобразовать в строчке все буквы в заглавные по условию

[StudentS]

Здравствуйте! Помогите решить задачку пожалуйста.
Мне нужно, если в абзаце текста есть 4 или больше ЗАГЛАВНЫХ букв подряд (в любом месте), то надо всему абзацу с этими буквами назначить определенный стиль.

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

Макрос работает только с английским и русским языком.

Макрос

Sub Макрос1()

    Dim rng_find As Range, fnd As Find
   
   
    '1. Отключение монитора.
    Application.ScreenUpdating = False
   
    '2. Созднаие объектов, которые будут искать.
    Set rng_find = ActiveDocument.Range(0, 0)
    Set fnd = rng_find.Find
   
    '3. Настройка поиска.
    fnd.Text = "[A-ZА-ЯЁ]{4;}"
    fnd.MatchWildcards = True
    fnd.Wrap = wdFindStop
   
    '4. Поиск.
    Do While fnd.Execute = True
        rng_find.Paragraphs(1).Range.Style = "Выделение"
        rng_find.SetRange Start:=rng_find.Paragraphs(1).Range.End - 1, End:=rng_find.Paragraphs(1).Range.End - 1
    Loop
   
    '5. Включение монитора.
    Application.ScreenUpdating = True
   
    '6. Сообщение.
    MsgBox "Готово.", vbInformation
   
End Sub

[свернуть]

[StudentS]

Проверил! Все работает так, как надо, большущее спасибо!!!