Assuming that the lists in question are simple lists with one entry per
paragraph in each document, then the following macro will remove from the
short list any item that appears in the long list. Run it on *copies* of the
document lists. Change the document paths as required.
Dim LongList As Document
Dim ShortList As Document
Set LongList = Documents.Open("D:\My Documents\Test\Temp\List1.docx")
Set ShortList = Documents.Open("D:\My Documents\Test\Temp\List2.docx")
For i = ShortList.Paragraphs.Count To 1 Step -1
With LongList.Range.Find
.Text = ShortList.Paragraphs(i).Range.Text
Do While .Execute(Forward:=True) = True
ShortList.Paragraphs(i).Range.Delete
Loop
End With
Next i
It could take a while to run
http://www.gmayor.com/installing_macro.htm
"Rod" wrote in message
...
Word 2007
Hello Gurus:
I have two listings of e-mail addresses. List A has approximately 33,000
entries and List B has approximately 2,000 entries.
If possible, I would like to select each individual email entry in List A
and compare it to the entries in List B in search of a duplicate entry.
If
the e-mail entry from List A is found in list B, I would like to delete
the
email entry from List B.
If the e-mail entry is NOT found in List B, I would like to proceed to the
subsequent e-mail entry in List A and begin the process all over again.
Any assistance in this regard would be very much appreciated.
Thanking you in advance, I remain.
Very truly yours - Rod