Astuce Word 2007 : détectez les répétitions de mots

Astuce Word 2007 : détectez les répétitions de mots
 

Word vous avertit quand deux mots placés côte à côte sont identiques. Mais c'est insuffisant pour repérer les répétitions excessives de termes dans un texte.

Votre opinion

Postez un commentaire

2 opinions
  • Hamza Marais
    Hamza Marais     

    Bon un peu tard mais pour certains la maccro bug car les 2 blocks "End If" ne sont pas séparés par un saut de ligne mais par un espace

    Essayez donc avec :
    End If
    End If

    Au lieu de :

    End If End If

  • housss
    housss     

    Bonjour,
    J'ai un problème pour exécuter le code suivant:"
    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"
    lors de l'execution il s'affiche une erreur de compilation correspondant à la synthaxe.
    Urgence pouvez vous m'aider.
    merci

Votre réponse
Postez un commentaire