Steven utilise tout le temps le suivi des modifications dans ses documents. Il a besoin d’un moyen de compter uniquement les mots qui ont été modifiés dans un document, ceux affectés par le suivi des modifications.

Si vous utilisez une ancienne version de Word (antérieure à Word 2003), il existe un moyen de le faire. Dans la zone Rechercher, si vous appuyez sur Ctrl + N, Word ne trouvera que les «nouveaux» mots …​ c’est-à-dire les modifications suivies. Vous pouvez alors remplacer ces « mots » par eux-mêmes (utilisez ^ & dans la case Remplacer par) et obtenir un décompte des remplacements.

Si vous utilisez Word 2003, cette fonctionnalité n’existe plus en raison des modifications apportées à la façon dont Word suit et affiche les modifications. Dans ce cas, vous devrez utiliser une macro pour afficher les informations souhaitées. Voici un exemple de macro que vous pouvez utiliser:

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

Cette macro parcourt chaque modification dans le document actuel et additionne séparément le nombre de mots et le nombre de caractères pour les insertions et les suppressions. Les statistiques sont ensuite présentées dans une boîte de message. Notez que la macro examine la collection Words pour chaque modification dans le document.

Vous devez comprendre que le nombre de mots, tel que présenté ici, est une approximation. C’est à cause de la façon dont les mots sont comptés. Par exemple, chaque signe de ponctuation dans un ajout est compté comme un mot distinct. Cela signifie qu’une phrase telle que « comme on peut le voir, c’est un excellent moyen » serait comptée comme dix mots au lieu de neuf (la virgule compte comme un mot séparé). De plus, si la phrase que vous avez ajoutée incluait un espace de début – ce que font souvent les insertions – alors il y aurait onze mots comptés pour l’insertion à cause de cet espace.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1095) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

lien: / wordribbon-Counting_Changed_Words [Comptage des mots modifiés].