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

Оцени полезность:

13   голосов , оценка 4.231 из 5