Sub PrintSpecificWordsII()
Dim myWords()
Dim lngIndex As Long
Dim oRng As Range
myWords = Array("Word1", "Word2", "Word3", "Word4", "Word5")
For lngIndex = 0 To UBound(myWords)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Text = myWords(lngIndex)
.Forward = True
While .Execute
oRng.HighlightColorIndex = wdBrightGreen
Application.PrintOut Range:=wdPrintCurrentPage
oRng.Collapse wdCollapseEnd
Wend
End With
Next lngIndex
End Sub
|