подсвечивающиеся одинаковые слова в Word 2003

[Dbnfkbq]

Необходимо чтобы слова в тексте, которые используются более одного раза, были подсвечены цветом. Помню что-то похожее использовал очень давно, сейчас не смог найти. Если таких решений нет, подскажите пожалуйста как в макросе ниже вместо XXXXX вставлялось слово из буфера обмена

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 24.03.2011 player
'
Selection.Extend
Selection.Extend
Selection.Copy
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
Selection.Find.Replacement.Highligh t = True
With Selection.Find
.Text = "XXXXX"
.Replacement.Text = "XXXXX "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.MoveDown Unit:=wdParagraph, Count:=1
End Sub

[Sasha_Smirnov]

.Replacement.Text = "XXXXX "

замените на

.Replacement.Text = "^c "

(пробел ваш, и я его оставляю)