user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

 

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'hui214
Hier2369
Cette semaine2583
Ce mois45243
Total depuis 200413076170

6
visiteurs actuellement en ligne

22 juin 2021