En poursuivant votre navigation sur ce site, vous acceptez nos CGU et l'utilisation de cookies afin de réaliser des statistiques d'audiences et vous proposer une navigation optimale, la possibilité de partager des contenus sur des réseaux sociaux ainsi que des services et offres adaptés à vos centres d'intérêts.
Pour en savoir plus et paramétrer les cookies...

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.

A voir aussi

Votre opinion

Postez un commentaire

1 opinion
  • 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