Avec une macro !

Pour éviter que soient surlignés les petits mots comme les articles, pronoms, etc., j'ai décidé de de pas tenir compte des mots de moins de 5 lettres.

Sub recherche()

'macro écrite par m@rina
Dim mot
Dim texte$
For Each mot In Selection.Words
Count = 0
texte$ = mot
With ActiveDocument.Content.Find
Selection.Find.Highlight = False
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
Do While .Execute(FindText:=texte$, Format:=True, MatchWholeWord:=True) = True
Count = Count + 1
Loop
End With
If mot.Characters.Count > 4 Then
If Count > 1 Then mot.HighlightColorIndex = wdYellow
End If
Next
End Sub 

Avant d'exécuter la macro, il faudra sélectionner le texte sur lequel vous voulez vérifier la présence de doublons.