microsoft.public.word.vba.general
back to index
Group: microsoft.public.word.vba.general
From: Helmut Weber
Date: Friday, March 21, 2008 4:09 AM
Subject: Re: Create a search and highlight script
From: Helmut Weber
Date: Friday, March 21, 2008 4:09 AM
Subject: Re: Create a search and highlight script
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
