Linda fragt sich, ob es eine Möglichkeit gibt, die Anzahl der Wörter in den Kommentaren (und nur in den Kommentaren) in einem Dokument zu zählen.

Der einfachste Weg, diese Aufgabe zu erfüllen, ist die Verwendung eines Makros. Dies liegt daran, dass Word VBA eine Kommentarsammlung zur Verfügung stellt, die alle Kommentare im Dokument enthält. Alles, was Sie tun müssen, ist, jeden Kommentar durchzugehen und dann die Count-Eigenschaft für die Words-Auflistung für den Kommentar auf folgende Weise zu überprüfen:

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

Wenn Sie möchten, können Sie auch die ComputeStatistics-Methode verwenden, um die Wortanzahl wie folgt zu ermitteln:

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

Wenn Sie die Ergebnisse der beiden Makros vergleichen, stellen Sie möglicherweise einen Unterschied in der Wortanzahl fest. Dies liegt an der Art und Weise, wie die CompuStatistics-Methode die Interpunktion bei ihren Berechnungen behandelt.

Sie möchten die Ergebnisse vergleichen und anhand der Merkmale der Informationen in Ihren Kommentaren den Ansatz auswählen, der Ihren Anforderungen am besten entspricht.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (13531) gilt für Microsoft Word 2007, 2010, 2013 und 2016.