VBA Word выделение латинских букв в тексте
Формулировка задачи:
Создать макрос с помощью VBA, выделяющий латинские буквы в документе
Word
Решение задачи: «VBA Word выделение латинских букв в тексте»
textual
Листинг программы
- Sub выделениеЛатиницы()
- '
- ' выделениеЛатиницы Макрос
- '
- '
- Selection.Find.ClearFormatting
- Selection.Find.Replacement.ClearFormatting
- Selection.Find.Replacement.Font.Color = wdColorRed
- With Selection.Find
- .Text = "[a-zA-Z]"
- .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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
