Word Macro Issue

KJJones · 09-28-2009, 06:07 AM

I am trying to use a macro to search (in MS Word 2007) a document for whole words (from a list held in a separate document) and highlight them (in green). The macro is below, but the match whole word option doesn't work, it still highlights words within other words. Does anyone know what the issue could be? Any help much appreciated.

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

Options.DefaultHighlightColorIndex = wdBrightGreen

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

With Selection.Find
.MatchWholeWord = True
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = True
.Replacement.Text = "^&"
.Format = True
.MatchCase = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = 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

**macropod** · 09-28-2009, 06:27 PM

Hi KJJones,

Try something like:

Code:

Sub CompareWordList()
Dim sCheckDoc As String
Dim docRef As Document
Dim docCurrent As Document
Dim wrdRef As Object
Application.ScreenUpdating = False

Options.DefaultHighlightColorIndex = wdBrightGreen

Set docCurrent = ActiveDocument
sCheckDoc = "c:\checklist.doc"
Set docRef = Documents.Open(sCheckDoc)
docCurrent.Activate
With docCurrent.Content.Find
  .ClearFormatting
  With .Replacement
    .ClearFormatting
    .Highlight = True
    .Text = "^&"
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  For Each wrdRef In docRef.Words
    If Asc(Left(wrdRef, 1)) > 32 Then
      .Text = "<" & Trim(wrdRef) & ">"
      .Execute Replace:=wdReplaceAll
    End If
  Next
End With
docRef.Close
Application.ScreenUpdating = True
End Sub

KJJones · 09-29-2009, 11:52 AM

Many thanks macropod, but i couldn't get that to work. It seems to run through the macro to the end fine enough, but doesn't highlight anything in the document. Any thoughts?
Cheers Karl

fumei · 09-29-2009, 01:33 PM

Works for me. ZIP file attached.

checklist.doc - this has three words "quick", "lazy" and "dog"
Lazydoc.doc - this has a bunch of "The quick brown fox jumps over the lazy dog. "

The file Lazydog.doc has "Compare Word List" on the top toolbar. Clicking that makes all instances of "quick", "lazy" and "dog" get green highlight.

Oh, as the path to checklist.doc is hard coded (c:\checklist.doc), make sure you unzip the file to there.

swaneon · 10-01-2009, 12:09 AM

how would you modify this so that words such as "in "would not be highlighted but it appears as a phrase in your checklist?
in----checklist of "in case"

**macropod** · 10-01-2009, 03:54 AM

Hi swaneon,

Why would you have a phrase in the checklist with words you don't want higlighted? And what would the criteria be for deciding when a word in a phrase should or should not be highlighted?

swaneon · 10-01-2009, 04:02 PM

is there a criteria?
im meant like phrases?
thanks

**macropod** · 10-01-2009, 05:47 PM

Hi swaneon,

What would the criteria be for deciding when a word in a phrase gets highlighted and when it doesn't? For example, would 'in' get highlighted when it's in some phrases, but not when it's in other phrases? If so, how is the macro meant to determine when it should or should not be highlighted?

swaneon · 10-01-2009, 08:44 PM

im wondering if its possible to never highlight in without it being in the phrase?

swaneon · 10-01-2009, 10:41 PM

well is there a way to input the minimum amount of letters?
thanks

**macropod** · 10-02-2009, 12:56 AM

Hi swaneon,

Quote:

im wondering if its possible to never highlight in without it being in the phrase?

What phrase? If your checklist.doc has a phrase with a word in it, that word won't be highlighted unless it's part of the phrase. Have you even tried the code to find out for yourself? The code I posted takes whole words/phrases from an input list and processes the active document against that list.

Quote:

is there a way to input the minimum amount of letters?

Yes, since my code uses wildcards, it's possible to have a list entry like 'boo*' to highlight every word beginning with 'boo'. You could even tell it to exlude certain variants. To use this to it's fullest potential, you'll need to study Word's wildcard syntax.

Another option is to have two lists: one for words/phrases to be highlighted and another for words from which the highlighting produced by the first list should be removed. For that, it's just a matter of defining the two source documents and having the required two Find?Replace loops, separated by a line to remove the highlight setting. I'll leave it to you to explore that if you're interested.

swaneon · 10-02-2009, 08:56 PM

knowing its possible is nice
ill come up with something and show is that fine?

**macropod** · 10-02-2009, 09:59 PM

Hi swaneon,

Quote:

ill come up with something and show is that fine?

That's fine by me.

swaneon · 10-02-2009, 11:36 PM

i did try your code in 07 but it also includes certain words not within a phrase---if wondering what defines a phrase?

**macropod** · 10-03-2009, 12:01 AM

Hi swaneon,

The get the code to process phrases as well as words, you would need to have a checklist.doc that has each word or phrase separated by, say, a paragraph break and modify the test in the line:
For Each wrdRef In docRef.Words
to handle whole paragraphs (instead of words), excluding the paragraph breaks. For example (untested):
For Each wrdRef In docRef.Paragraphs
wrdRef.MoveEnd wdCharacter, -1
and then after doing the replace, you may need to use:
wrdRef.MoveEnd wdCharacter, 1

swaneon · 10-03-2009, 12:29 AM

i dont know if i said this before but i appreciate your help greatly
thank you

swaneon · 10-03-2009, 04:27 PM

so this part should be like this?

For Each wrdRef In docRef.Paragraphs
wrdRef.MoveEnd wdCharacter, -1
If Asc(Left(wrdRef, 1)) > 32 Then
.Text = "<" & Trim(wrdRef) & ">"
.Execute Replace:=wdReplaceAll
wrdRef.MoveEnd wdCharacter, 1
End If

**macropod** · 10-03-2009, 08:00 PM

Hi swaneon,

Not quite:

Code:

For Each wrdRef In docRef.Paragraphs
  wrdRef.MoveEnd wdCharacter, -1
  If Asc(Left(wrdRef, 1)) > 32 Then
    .Text = "<" & Trim(wrdRef) & ">"
    .Execute Replace:=wdReplaceAll
  End If
  wrdRef.MoveEnd wdCharacter, 1

As I said, though, I haven't actually tested it - and you may or may not need the last line (wrdRef.MoveEnd wdCharacter, 1).

swaneon · 10-04-2009, 01:54 AM

theres error 438 with line
wrdRef.MoveEnd wdCharacter, -1?

**macropod** · 10-04-2009, 02:20 AM

Hi swaneon,

Try:

Code:

Sub ComparePhraseList()
Dim sCheckDoc As String
Dim docRef As Document
Dim docCurrent As Document
Dim oPara As Paragraph
Dim wrdRef As Range
Application.ScreenUpdating = False

Options.DefaultHighlightColorIndex = wdBrightGreen

Set docCurrent = ActiveDocument
sCheckDoc = "c:\checklist.doc"
Set docRef = Documents.Open(sCheckDoc)
docCurrent.Activate
With docCurrent.Content.Find
  .ClearFormatting
  With .Replacement
    .ClearFormatting
    .Highlight = True
    .Text = "^&"
  End With
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  For Each oPara In docRef.Paragraphs
    Set wrdRef = oPara.Range
    wrdRef.MoveEnd wdCharacter, -1
    .Text = "<" & Trim(wrdRef) & ">"
    .Execute Replace:=wdReplaceAll
  Next
End With
Set wrdRef = Nothing
docRef.Close
Application.ScreenUpdating = True
End Sub

Note: The checklist.doc will need to have each word or phrase separated by a paragraph break, for example:

The quick brown¶
jumped over¶
dog

can be used to check the phrases 'The quick brown' and 'jumped over', and the word 'dog'.

09-28-2009, 06:07 AM	#1 (permalink)
KJJones Registered User Join Date: Sep 2009 Posts: 3 OS: Vista Business SP2	Word Macro Issue I am trying to use a macro to search (in MS Word 2007) a document for whole words (from a list held in a separate document) and highlight them (in green). The macro is below, but the match whole word option doesn't work, it still highlights words within other words. Does anyone know what the issue could be? Any help much appreciated. Sub CompareWordList() Dim sCheckDoc As String Dim docRef As Document Dim docCurrent As Document Dim wrdRef As Object Options.DefaultHighlightColorIndex = wdBrightGreen sCheckDoc = "c:\checklist.doc" Set docCurrent = Selection.Document Set docRef = Documents.Open(sCheckDoc) docCurrent.Activate With Selection.Find .MatchWholeWord = True .ClearFormatting .Replacement.ClearFormatting .Replacement.Highlight = True .Replacement.Text = "^&" .Format = True .MatchCase = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = 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

09-29-2009, 11:52 AM	#3 (permalink)
KJJones Registered User Join Date: Sep 2009 Posts: 3 OS: Vista Business SP2	Re: Word Macro Issue Many thanks macropod, but i couldn't get that to work. It seems to run through the macro to the end fine enough, but doesn't highlight anything in the document. Any thoughts? Cheers Karl

10-01-2009, 12:09 AM	#5 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue how would you modify this so that words such as "in "would not be highlighted but it appears as a phrase in your checklist? in----checklist of "in case"

10-01-2009, 03:54 AM	#6 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 565 OS: Vista	Re: Word Macro Issue Hi swaneon, Why would you have a phrase in the checklist with words you don't want higlighted? And what would the criteria be for deciding when a word in a phrase should or should not be highlighted? __________________ Cheers macropod (MS MVP -Word)

10-01-2009, 04:02 PM	#7 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue is there a criteria? im meant like phrases? thanks

10-01-2009, 05:47 PM	#8 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 565 OS: Vista	Re: Word Macro Issue Hi swaneon, What would the criteria be for deciding when a word in a phrase gets highlighted and when it doesn't? For example, would 'in' get highlighted when it's in some phrases, but not when it's in other phrases? If so, how is the macro meant to determine when it should or should not be highlighted? __________________ Cheers macropod (MS MVP -Word)

10-01-2009, 08:44 PM	#9 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue im wondering if its possible to never highlight in without it being in the phrase?

10-01-2009, 10:41 PM	#10 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue well is there a way to input the minimum amount of letters? thanks

10-02-2009, 08:56 PM	#12 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue knowing its possible is nice ill come up with something and show is that fine?

10-02-2009, 11:36 PM	#14 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue i did try your code in 07 but it also includes certain words not within a phrase---if wondering what defines a phrase?

10-03-2009, 12:01 AM	#15 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 565 OS: Vista	Re: Word Macro Issue Hi swaneon, The get the code to process phrases as well as words, you would need to have a checklist.doc that has each word or phrase separated by, say, a paragraph break and modify the test in the line: For Each wrdRef In docRef.Words to handle whole paragraphs (instead of words), excluding the paragraph breaks. For example (untested): For Each wrdRef In docRef.Paragraphs wrdRef.MoveEnd wdCharacter, -1 and then after doing the replace, you may need to use: wrdRef.MoveEnd wdCharacter, 1 __________________ Cheers macropod (MS MVP -Word) Last edited by macropod; 10-03-2009 at 12:05 AM.

10-03-2009, 12:29 AM	#16 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue i dont know if i said this before but i appreciate your help greatly thank you

10-03-2009, 04:27 PM	#17 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue so this part should be like this? For Each wrdRef In docRef.Paragraphs wrdRef.MoveEnd wdCharacter, -1 If Asc(Left(wrdRef, 1)) > 32 Then .Text = "<" & Trim(wrdRef) & ">" .Execute Replace:=wdReplaceAll wrdRef.MoveEnd wdCharacter, 1 End If

10-03-2009, 08:00 PM	#18 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 565 OS: Vista	Re: Word Macro Issue Hi swaneon, Not quite: Code: For Each wrdRef In docRef.Paragraphs wrdRef.MoveEnd wdCharacter, -1 If Asc(Left(wrdRef, 1)) > 32 Then .Text = "<" & Trim(wrdRef) & ">" .Execute Replace:=wdReplaceAll End If wrdRef.MoveEnd wdCharacter, 1 As I said, though, I haven't actually tested it - and you may or may not need the last line (wrdRef.MoveEnd wdCharacter, 1). __________________ Cheers macropod (MS MVP -Word)

10-04-2009, 01:54 AM	#19 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue theres error 438 with line wrdRef.MoveEnd wdCharacter, -1?