Microsoft Office Forums - View Single Post - [Solved] seach an Excel list elements in word document

macropod · 02-01-2011, 01:39 PM

Hi 7ajar,

You could use a macro like:

Code:

Sub Demo()
Dim arrWords, i As Long
Application.ScreenUpdating = False
arrWords = Array("Alex", "car", "15822")
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .MatchWholeWord = True
  .Replacement.Text = "^&"
  .Replacement.Highlight = True
  For i = 0 To UBound(arrWords)
    .Text = arrWords(i)
    .Execute Replace:=wdReplaceAll
  Next
End With
Application.ScreenUpdating = True
End Sub