[VBA]文書内の特定語句をハイライト[Word]

質問

ある単語のリストがあり、そのリストにある単語が Word 文書内にある場合、すべてをハイライトしたいのですが、うまくできません。
次のコードです。これだと「初出のみ」のヒットしかハイライトされません。
これを「ヒットしたすべて」にかえることはできるのでしょうか？

Dim search(2) as string
search(0) = "abc"
search(1) = "def"
search(2) = "ghi"

For i = 0 To 2

Selection.Find.ClearFormatting
With Selection.Find
.Text = search(i)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
Selection.Range.HighlightColorIndex = wdBrightGreen

Next

回答No.1

keithin · ベストアンサー

Sub Sample1()
　Dim search(2) As String

　search(0) = "abc"
　search(1) = "def"
　search(2) = "ghi"
　Options.DefaultHighlightColorIndex = wdBrightGreen

　For i = 0 To 2
　Selection.Find.ClearFormatting
　Selection.Find.Replacement.ClearFormatting
　Selection.Find.Replacement.Highlight = True
　With Selection.Find
　　.Text = search(i)
　　.Replacement.Text = ""
　　.Forward = True
　　.Wrap = wdFindContinue
　　.Format = True
　　.MatchCase = False
　　.MatchWholeWord = False
　　.MatchByte = False
　　.MatchAllWordForms = False
　　.MatchSoundsLike = False
　　.MatchWildcards = False
　　.MatchFuzzy = False
　End With
　Selection.Find.Execute Replace:=wdReplaceAll
　Next i
End Sub

「全て置換」の記録マクロを参考に，ちょっとアレンジしてみた具合です。

お礼

ありがとうございます！！！！
ちゃんとできました。本当に助かります！