Highlight Words from a Word List

Thanks for the post. It is very helpful. Could someone help me modifying the code below to highlight the words rather than changing the font color? I would like to use the highlighter feature instead.
Thanks;

how do i make a VBE Script to do the same thimg

For those who would like to change the listed and found words' color to red for example (instead of make them bold), use the following macro.

(I don't know anything about editing macros but fortunately I found an other article of Allen and gave a try to merge the two different macros ..:)

All I did is that I replaced the original ".Replacement.Font.Bold = True" row to ".Replacement.Font.ColorIndex = wdRed" in the macro.

Here it is:

Sub CompareWordList()
Dim sCheckDoc As String
Dim docRef As Document
Dim docCurrent As Document
Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"
Set docCurrent = Selection.Document
Set docRef = Documents.Open(sCheckDoc)
docCurrent.Activate

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Font.ColorIndex = wdRed
.Replacement.Text = "^&"
.Forward = True
.Format = True
.MatchWholeWord = True
.MatchCase = True
.MatchWildcards = False
End With

For Each wrdRef In docRef.Words
If Asc(Left(wrdRef, 1)) > 32 Then
With Selection.Find
.Wrap = wdFindContinue
.Text = wrdRef
.Execute Replace:=wdReplaceAll
End With
End If
Next wrdRef

docRef.Close
docCurrent.Activate
End Sub

This worked for me.

If you prefer other colors here are the codes:

Number Text Color Word Constant
0 Auto wdAuto
1 Black wdBlack
2 Blue wdBlue
3 Cyan wdTurquoise
4 Green wdBrightGreen
5 Magenta wdPink
6 Red wdRed
7 Yellow wdYellow
8 White wdWhite
9 Dark Blue wdDarkBlue
10 Dark Cyan wdTeal
11 Dark Green wdGreen
12 Dark Magenta wdViolet
13 Dark Red wdDarkRed
14 Dark Yellow wdDarkYellow
15 Dark Gray wdGray50
16 Light Gray wdGray25

I hope this may be useful for others...

I would like to do the same thing as listed above, but instead of highlight/bold the word, I would like to delete the word. I have a word document that has a list of words. I want to search another word document for words on the list and delete them. How do I alter this macro to delete the words in stead of highlight/bold the words?

What does your Checklist.doc file look like? It should have each search term on a separate line (with a hard return between each).

Hi I tried this code and I'm stuck in the for loop as the loop runs only once. I'm getting run time error as for loop not initialized. Pleaes help

Rachel, I inserted the macro into Word 2010 (open Word, then select Developer tab, Macros button, then type a name for the macro, then hit Create button. Paste the macro into this box, then save it). To run the macro, open a Word document, select Developer tab, Macros, then highlight the macro you just named and hit Run. But before you run the macro, you'll need to create a separate Word document containing all the terms you want the macro to highlight. The full path and name of that document must be included in the line "sCheckDoc =" in the macro itself.

I am NOT a macro expert at all, so I probably messed this up. I put the above listing into Visual Basics Editor into any field I thought would accept it. I went into my word doc that I want to highlight words in and found the macro "CompareWordList" and when I run it, it says "Sub or Function not defined." What should I do now?

I'm using Peter's script to serch for single words or word combinations and it works fine! But how do I make the macro search just for whole words?
I mean, if one of the words of my checklist is "SIM", the current macro will also highlight "simultaneous", "similar", etc. Is there a way to avoid this?

Thanks,
Thom

I have a list of some 100+ words to check their presence in a PDF file. In PDF, I could import only a notepad to present the list of words to be checked, using redaction to highlight/remove the list of words. The problem with notepad is that I can't have certain terms searched. Fox example, I want to search for the following combination:
Any letter+space+however (To find out the error in a sentence like this: They knew it was useful however, they felt it was expensive.) (It should be: “… was useful; however, they felt…”)
OR
Any number+space+respectively (To find out the error in a sentence like this: Tom and Peter spent $10 and $15 respectively, from their savings.) (It should be “… $10 and $15, respectively”)
How do I have this customized search possible? Any idea would be greatly appreciated.

Hi

IS it possible to do similar but the other way round, I check what words are missing from the list. so it would highlight the words in checklist, or would I just swop the to round.
I would also prefer if the list is an excel one.

I know this is an old thread but I have the same problem as Jack. Assuming it is due to the fact I am trying to do this on a mac version of Word. Is the script different in that case?

thanks,

Can you please post the macro for word2014 and later? It's not working for word 2010 or 2013. Please help!!!

Peter,

Thank you for posting your update. Since I know very little about VBA, can you post a complete macro that I could just copy and paste into Word to have this word-searching macro work for compound search terms? Many thanks again!

Dear all,

I was also looking for a solution to the compound words problem Darrell reported:

* Cong Thang's .IgnoreSpace solution did not work for me
* I found the solution on this forum: http://www.tech-archive.net/Archive/Word/microsoft.public.word.vba.general/2007-11/msg00613.html
The problem is that the macro selects the words from the documents as words, not paragraphs; forum commenter Jay Freedman explained what you can change to the script to solve this problem:

Dim wrdRef As String
Dim wrdPara As Paragraph
....
For Each wrdPara In docRef.Paragraphs
wrdRef = wrdPara.Range.Text
' remove the paragraph mark:
wrdRef = Left(wrdRef, Len(wrdRef) - 1)
If Asc(Left(wrdRef, 1)) > 32 Then
With Selection.Find
.Wrap = wdFindContinue
.Text = wrdRef
.Execute Replace:=wdReplaceAll
End With
End If
Next wrdPara

When I implemented this, the macro performed perfectly, but ran into a problem at the end of the list.
This problem can be solved by moving the If clause one line up:

For Each wrdPara In docRef.Paragraphs
wrdRef = wrdPara.Range.Text
If Asc(Left(wrdRef, 1)) > 32 Then
' remove the paragraph mark:
wrdRef = Left(wrdRef, Len(wrdRef) - 1)
With Selection.Find
.Wrap = wdFindContinue
.Text = wrdRef
.Execute Replace:=wdReplaceAll
End With
End If
Next wrdPara

Dear M. Wyatt, thanks a lot for this very useful macro!

I know this is an old posting, but hoping someone still checking it. I got your macro to run and just highlight the words I'm searching for. However, I'm trying to include some words with Wildcards in my list of search words, with WildCard = True, but I get a "< is not a valid special character" when I try to run it. Any ideas? I'm doing technical editing for the Air Force. I'm also interested in a macro to search and replace from a list. If you have this info in one of your books, I'd be happy to purchase.

Fightergator@hotmail.com

Just need to add .IgnoreSpace = True

Is there a way to list out in a new document, the words that are found,rather than highlighting them?

What is the syntax of the file name you're accessing? It works fine with the path I used:

sCheckDoc = "D:Documents and SettingsuserDesktopChecklist.docx"

I'm trying to use this macro on my MBP with Mountain Lion and Microsoft 2011, but I keep getting the same error message:

"Run-time error '5174':

This file could not be found.
Try one or more of the following:
*Check the spelling of the name of the document.
*Try a different file name.
(/Users/jackman/Desktop/Wordlist.docx)


I guess I'm entering the file path wrong, but i've tried every variation I can think of. Please help!!!

Works great on finding single words, but how do I get the macro to find word combinations (like "ice cream")? Putting the term in quotes only causes the macro to search for quotes!