Create a search and highlight script

[Singh]

Is it possible to create a script to search through a body of text and find
and highlight all instances of a predefined list of words?

i.e. I have a list of 25 words... can I click a button and have Word
highlight wherever those words appear?

 

[Helmut Weber]

Hi Singh,

like that:

Sub Test4b()
Dim sArr() As String
Dim rTmp As Range
Dim x As Long
sArr = Split("the brown jumps dog") ' your list
Options.DefaultHighlightColorIndex = wdYellow
For x = 0 To UBound(sArr)
Set rTmp = ActiveDocument.Range
With rTmp.Find
.Text = sArr(x)
.Replacement.Text = sArr(x)
.Replacement.Highlight = True
.Execute Replace:=wdReplaceAll
End With
Next
End Sub


--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP