Macro that can search a database and highlight multiple words

**Buster^** · 03-16-2013, 01:17 PM

Hello, I need some help making some macros and a database. How can I make a code that will search every word in Word and lookup that word in a database and if it is a match it will highlight all the different words (I know how to use the search code, but not how to make a database and search multiple words and highlight them). The database needs have data entries, a word to look up and word that can be replaced with it (like a table in excel where column A is the word to search for and column B is the word to replace it with). Is there anyone that can help me, or know some parts that will make it easier for me (I do not know if it is possible to make a database (maybe access?), any help would be appreciated!!!)?

Summary:
1 Make a database to be used in vba
2 Make a macro that searches the document for words that matches the in the database and highlights them (different words)
3 Make a macro that searches the document for words that matches the in the database, and replace it with the another word

**macropod** · 03-17-2013, 02:02 AM

See: http://www.msofficeforums.com/word-v...d-replace.html
The only difference from a Find/Replace perspective for replacing vs highlighting is whether you're replacing the found string with another one or adding a highlight. In fact, the two can be combined.

Recording Find/Replace macros with replacement vs highlighting will show you how little difference there is between the two.

**Buster^** · 03-17-2013, 07:38 AM

Thank you! This helped me alot

I think I have to do some minor changes, so I will leave the thread unsolved. But I think you solved my problem :D

**Buster^** · 03-17-2013, 01:28 PM

Could you please modify the code so it only works in the document that is activated and not in the folder that is selected, and if I use find, how do I mark multiple words with the yellow highlight marker?

**macropod** · 03-19-2013, 05:53 PM

For code to run against the active document only, see:
http://www.msofficeforums.com/word-v...html#post31726
To highlight the replaced text is as simple as adding:
.Replacement.Highlight = True
to the Find/Replace portion of the code.