Détecter les doublons dans un document texte avec Word -

Exemple avec Word 2016

Il est possible de détecter les mots à répétition (doublons) dans un document texte en passant par une macro (module)

Il faut que votre document soit enregistré sous un format permettant l’utilisation des macros (extension dotm)

Ensuite ouvrez l’éditeur de module / macro (ALT F11)
Menu insertion => Modules
Copier et collez le code suivant dans la fenêtre du Module

Sub trouveDoublons() 
  Const minLett = 3 
  Dim lm As New Collection 
  Dim dbl As New Collection 
  For Each w In ThisDocument.Words 
	v = LCase(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 
		dbl.Add (v) 
	  Else 
		lm.Add (v) 
	  End If 
	End If 
  Next 
  For Each w In ThisDocument.Words 
	For Each m In dbl 
	  If m = LCase(Trim(w.Text)) Then 
		w.HighlightColorIndex = wdYellow 
	  End If 
	Next 
  Next 
End Sub

Sub trouveDoublons()

Const minLett = 3

Dim lm As New Collection

Dim dbl As New Collection

For Each w In ThisDocument.Words

v = LCase(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

If doubl Then

w.HighlightColorIndex = wdYellow

dbl.Add (v)

Else

lm.Add (v)

End If

For Each w In ThisDocument.Words

For Each m In dbl

If m = LCase(Trim(w.Text)) Then

w.HighlightColorIndex = wdYellow

End If

End Sub

Enregistrez et exécutez le module (bouton lecture vert)

Pour annuler la coloration des mots en double il suffit de sélectionner tout votre texte et de retirer le surlignage

Détecter les doublons dans un document texte avec Word

1 réflexion sur « Détecter les doublons dans un document texte avec Word »

Répondre à Seban Annuler la réponse.