Macro doublons Word 2019

Bonjour,

Autant le dire tout de suite, je n'y connais rien en macro mais en cherchant sur internet j'ai à peu près trouvé ce que je cherchais : une macro me permettant de trouver les mots de plus d'un certain nombre de lettres qui seraient en doublons dans un texte. Seul problème, la macro en question cherche dans la totalité du texte et moi j'aimerais qu'elle ne cherche que dans une certaine limite, par exemple tous les 150 ou 200 mots. Il s'agit de trouver les doublons qui sont proches les uns des autres. Que dois-je ajouter à cette macro pour y arriver ? J'avais trouvé une autre macro incluant cette fonction mais elle ne marche pas. Toujours est-il qu'elle utilisait cette fonction : Const nbMots = 150, mais je n'arrive pas à l'intégrer...

Quant à la macro qui marche, la voici

'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

Y aurait-il une bonne âme pour m'aider dans cette quête ?

Merci d'avance !

Rechercher des sujets similaires à "macro doublons word 2019"