Moim zamiarem jest stworzenie bardzo prostego makra, aby znaleźć serię słów i wyróżnić je. Niestety, nie wiem, jak zrobić wiele słów w jednym kroku. Na przykład, następujący kod działa:Makro Microsoft Word do podświetlania wielu słów
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
Jednakże, jeśli dodam w innym .Text =
linii, wówczas MJ:
jest ignorowany. Jakieś pomysły?
Dzięki! Ta pętla była dokładnie tym, czego szukałem. Chciałbym móc powiedzieć, że rozumiem, jak to działa, ale jeśli to działa, jestem szczęśliwy! –