Макрос Microsoft Word для выделения нескольких слов
Моя цель - создать очень простой макрос, чтобы найти последовательность слов и выделить их. К сожалению, я не знаю, как сделать несколько слов за один шаг. Например, работает следующий код:
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = "MJ:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Однако, если я добавлю в другой.Text =
линия, тоMJ:
игнорируется Есть идеи?