Поиск слов, содержащих более 8 букв (WORD) - VBA
Формулировка задачи:
Необходим макрос для WORD, который в тексте находит слова больше 8 букв и выделяет их (например желтым). Очень нужен! Заранее спасибо!
Решение задачи: «Поиск слов, содержащих более 8 букв (WORD)»
textual
Листинг программы
Sub Макрос888() ' ' Макрос888 Макрос ' ' Options.DefaultHighlightColorIndex = wdYellow Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True With Selection.Find .Text = "[A-Za-zА-Яа-яЁё]{19;}" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д