user_mobilelogo

 

 

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 > 5 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.

Si vous ne voulez surligner que les mots qui reviennent plus de 2 fois, modifiez le code

If Count > 1

par If Count > 2

 

Statistiques

Aujourd'hui720
Hier2206
Cette semaine12924
Ce mois40753
Total depuis 200411221766

8
visiteurs actuellement en ligne