Create a search and highlight script

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Singh - 20 Mar 2008 21:52 GMT

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?

Reply to this Message

Helmut Weber - 21 Mar 2008 10:09 GMT

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

Reply to this Message