Une petite macro permet de combler cette lacune. Pour la saisir, utilisez le raccourci Alt + F11 pour ouvrir l’éditeur Visual Basic. Déroulez le menu Insertion, Module et saisissez le code ci-dessous. Retournez ensuite dans Word, tapez Alt + F8 pour ouvrir la boîte de dialogue Macros et double-cliquez sur TrouveDoublons.
Si deux termes identiques sont séparés par moins de 150 mots (un nombre que vous pouvez modifier en changeant la valeur de la constante nbMots), le second sera considéré comme une répétition et coloré en jaune. Notez que les mots de moins de trois caractères sont ignorés. Là encore, vous pouvez changer ce paramètre en modifiant le contenu de la variable minLett.
Sub trouveDoublons()
Const minLett = 3
Const nbMots = 150
Dim lm As New Collection
For Each w In ThisDocument.Words
v = Trim(w.Text)
g = InStr(1, v, Chr(146)) + InStr(1, v, “‘”)
If g > 0 And g < Len(v) Then v = Mid(v, g + 1)
If Len(v) > minLett Then
doubl = False
For Each m In lm
If m = v Then doubl = True
Next
If doubl Then
w.HighlightColorIndex = wdYellow
Else
lm.Add (v)
If lm.Count > nbMots Then lm.Remove (1)
End If End If
Next
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
