seach an Excel list elements in word document

macropod · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Embedding Excel Object in Word Document Failing	brandonf	Word	0	10-04-2010 11:45 AM
MS Word to pdf - elements moved	SFC	Word	1	05-25-2010 11:27 AM
C# API to identify the uncommitted changes in Excel and Word document?	althafuddeen	Excel	0	04-06-2010 07:40 AM
Exporting word document to Excel	scaifea	Word	1	01-09-2010 10:57 AM
Connecting word and excel document	jmarin	Word	0	11-28-2008 02:55 AM