Macro to highlight a list of words

[bakerkr]

I came across a macro that will highlight a certain word, in the below example I used the word to.

I'd like to use a list of words, which will allow me to add or delete words as necessary. Is this possible? VBA is okay instead of a macro.



Thanks
Kevin

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
  .Text = "to"
  .Replacement.Text = "to"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow

[fumei]

VBA is okay instead of a macro.

They are the same. VBA = macros. macros = VBA

Sub ListChange()
Dim r As Range
Dim MyList() As String
Dim i As Long
MyList = Split("dot,com,like", ",")
For i = 0 To UBound(MyList())
   Set r = ActiveDocument.Range
      With r.Find
         .Text = MyList(i)
         .Replacement.Highlight = wdYellow
         .Execute Replace:=wdReplaceAll
      End With
Next
End Sub

The code highlights all instances of the words in the list (dot, com, like).

Note that nothing is selected.

[bakerkr]

Thanks for the help,worked great!

[vijayvijay]

I was looking for something like this. Can the checking of the words can be done from a database excel. I have excel sheet having hundred words and if these words are there in the word file it must be highlighted.

[macropod]

Originally Posted by vijayvijay

I was looking for something like this. Can the checking of the words can be done from a database excel. I have excel sheet having hundred words and if these words are there in the word file it must be highlighted.

Kindly don't resurrect old threads.

The use of an Excel workbook as a Find/Replace data source has been discussed numerous times. For example: https://www.msofficeforums.com/word-...html#post34254