Linda se demande s’il existe un moyen de compter le nombre de mots contenus dans les commentaires (et uniquement les commentaires) dans un document.

Le moyen le plus simple d’accomplir cette tâche consiste à utiliser une macro. En effet, Word met à la disposition de VBA une collection de commentaires qui comprend tous les commentaires du document. Tout ce que vous avez à faire est de parcourir chaque commentaire, puis de regarder la propriété Count de la collection Words pour le commentaire, de cette manière:

Sub CommentWordCount1()

Dim c As Comment     Dim lWords As Long     Dim sMsg As String

For Each c In ActiveDocument.Comments         lWords = lWords + c.Range.Words.Count     Next c

sMsg = "There are " & ActiveDocument.Comments.Count     sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf     sMsg = sMsg & "Word count: " & lWords     MsgBox sMsg End Sub

Si vous préférez, vous pouvez également utiliser la méthode ComputeStatistics pour trouver le nombre de mots, comme ceci:

Sub CommentWordCount2()

Dim c As Comment     Dim lWords As Long     Dim sMsg As String

For Each c In ActiveDocument.Comments         lWords = lWords + c.Range.ComputeStatistics(wdStatisticWords)

Next c

sMsg = "There are " & ActiveDocument.Comments.Count     sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf     sMsg = sMsg & "Word count: " & lWords     MsgBox sMsg End Sub

Lorsque vous comparez les résultats des deux macros, vous pouvez remarquer une différence dans le nombre de mots. Cela est dû à la façon dont la méthode CompuStatistics traite la ponctuation lors de ses calculs.

Vous voudrez comparer les résultats et, en fonction des caractéristiques des informations contenues dans vos commentaires, choisir l’approche qui correspond le mieux à vos besoins.

_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 (13531) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.