Hi Barb,
If you have the words in a separate document, one word to a paragraph, which
is saved with the name of list.doc (and in the case of the code below in
folder d:\documents), and you run a macro containing the following code when
the document containing the words that you want to highligh is active, it
will highlight each occurence of the words in listdoc
Dim source As Document, listdoc As Document, seekword As String, i As
Integer
Set source = ActiveDocument
Set listdoc = Documents.Open("d:\Documents\list.doc")
For i = 1 To listdoc.Paragraphs.Count
seekword = listdoc.Paragraphs(i).Range.Words(1)
source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=seekword, Wrap:=wdFindStop,
Forward:=True) = True
Selection.Range.HighlightColorIndex = wdBlue
Selection.Collapse wdCollapseEnd
Loop
End With
Next i
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP