How do I extract duplicate words in a doc?

[tturner80126]

I am trying to identify duplicate words in a document and either extract or
highlight.
After researching this, I am at a loss. Is this possible, and if so, what
is the procedure?

Thx in advance for the help.

 

[Greg Maxey]

You can highlight (or delete) duplicated words using a macro something like
this:
Sub FlagDupWords()
Dim oCol As Collection
Dim oWord As Range
Set oCol = New Collection
For Each oWord In ActiveDocument.Words
On Error GoTo Err_Handler
oCol.Add LCase(Trim(oWord)), LCase(Trim(oWord))
Err_ReEntry:
On Error GoTo 0
Next
Exit Sub
Err_Handler:
If Err.Number = 457 Then
MsgBox oWord & " is a duplicated word and will be flagged."
If oWord.Characters.Last = " " Then oWord.MoveEnd wdCharacter, -1
oWord.HighlightColorIndex = wdBrightGreen
Resume Err_ReEntry
Else
MsgBox Err.Number & " " & Err.Description
End If
End Sub


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org

~~~~~~~~~~~~~~~~~~~~~~~~~~~~