Linda想知道是否有一种方法可以计算文档中注释（仅注释）中的单词数量。

完成此任务的最简单方法是使用宏。这是因为Word向VBA提供了一个注释集合，其中包括文档中的所有注释。您需要做的就是逐步浏览每个注释，然后以这种方式查看Words集合的Count属性作为注释：

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

如果愿意，还可以使用ComputeStatistics方法来计算字数，如下所示：

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

当您比较两个宏的结果时，您可能会注意到字数差异。这是因为CompuStatistics方法在计算时会处理标点符号。

您需要比较结果，并根据评论中信息的特征，选择最适合您需求的方法。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13531）适用于Microsoft Word 2007、2010、2013和2016。