Find&Replace in Word!

Hi,

if have a problem. I tried to create macro in word, which find should words in the text, by scanning a a excel sheet( only one column).
If there is match, it should be replaced by a Word/Value of the same excelsheet just another column, but same row.

It would be great, if someone can help me.

The excelsheet looks like:

1. Column 2. Column
Contact.N Contact.M

Best Regards & Thanks for any response.
Frantic

Open the excel sheet (in and excel object, visibility false).
Find the bottom most data line.
Start a loop from the top to that number.
grab the 'find' and 'replace with' from the spreadsheet into a variable each

Code:

---

activedocument.range = replace(activedocument.range,strFind,strReplaceWith)

---

Keep looping until complete.