Здравствуйте! Помогите решить задачку пожалуйста.
Мне нужно, если в абзаце текста есть 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
Проверил! Все работает так, как надо, большущее спасибо!!!