すべての単語を強調表示しようとしていますが、現時点では大文字と小文字を区別して強調表示することを避けたいと考えています。
Sub Highlight_words()
Dim range As range
Dim i As Long
Dim TargetList
TargetList = Array("Array", "highlight", "With", "range", "matchcase")
' put list of terms to find here
For i = 0 To UBound(TargetList)
Set range = ActiveDocument.range
With range.Find
.Text = TargetList(i)
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(Forward:=True) = True
range.HighlightColorIndex = wdYellow
Loop
End With
Next
End Sub