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.

La réponse est que vous pouvez obtenir les informations souhaitées en utilisant le volet de révision. Affichez l’onglet Révision du ruban, puis cliquez sur l’outil Volet de révision (dans le groupe Suivi). Word affiche le volet de révision à l’écran et en haut du volet se trouve un résumé des révisions apportées dans le document. Il présente des statistiques pour les cinq changements suivants:

Insertions Suppressions Déplacements Modifications de formatage * Commentaires

Ces statistiques peuvent sembler correspondre au projet de loi, mais vous vous souviendrez que j’ai dit qu’elles fournissent «en quelque sorte» les informations recherchées. Ils sont un peu insuffisants si vous voulez vraiment compter les mots modifiés. Les statistiques comptent des changements, pas des mots modifiés. Par exemple, si vous supprimez une phrase composée de plusieurs mots, cette modification ne compte que comme une seule suppression dans les statistiques. De même, si vous ajoutez une phrase à votre document, cet ajout compte comme une seule insertion, même si l’insertion contenait un paragraphe complet.

Si vous voulez que les mots réels soient modifiés, vous n’avez malheureusement pas de chance – Word ne fournit aucun moyen d’obtenir les informations souhaitées. Vous pouvez cependant concevoir votre propre macro pour déterminer les informations souhaitées. Voici un exemple:

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 (11484) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Counting_Changed_Words [Comptage des mots modifiés].