Word 2007 - Astuces: Une petite macro pour vous permettre de détecter plus facilement les doublons

Publié dans MS Office
mercredi, 25 novembre 2015 09:43
Astuces Microsoft Word 2007 pour trouver plus facilement les doublons Astuces Microsoft Word 2007 pour trouver plus facilement les doublons Blogatic

Il arrive souvent que vous vouliez vérifier la présence de doublons sur vos document Word. Cela peut devenir une tâche fastidieuse si vous êtes en face d'un document d'une centaine de page. Certes 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.

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


 

Plus d'infos

  • Source: BlogaTic
  • Auteur: O_Ndoffé
Lu 465 fois Dernière modification le mercredi, 25 novembre 2015 10:07
O_Ndoffé

Fondateur et CEO de SSI RogaTic, je suis actuellement en poste d'Assistant Responsable Informatique à IKAGEL SA. Administrateur Systèmes Informatiques et développeur web de formation et par passion je suis un féru de l'informatique et des technologies liées à ce dernier.

Articles les plus consultés