Linda wonders if there is a way to count the number of words that are within the comments (and only the comments) in a document.
The easiest way to accomplish this task is to use a macro. This is because Word makes available to VBA a Comments collection which includes all of the comments in the document. All you need to do is to step through each comment and then look at the Count property for the Words collection for the comment, in this manner:
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
If you prefer, you could also use the ComputeStatistics method to come up with the word counts, like this:
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
When you compare the results from the two macros, you may notice a difference in word counts. This is because of the way that the CompuStatistics method treats punctuation when doing its calculations. You'll want to compare the results and, based on the characteristics of the information in your comments, choose the approach that best suits your needs.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (13531) applies to Microsoft Word 2007, 2010, 2013, and 2016.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
Word allows you to add comments to your document to aid in the development of the document. At some point you may want to ...
Discover MoreWord has a very powerful find-and-replace capability, but it can be a bit persnickety when it comes to changing text ...
Discover MoreFor certain types of work, footnotes are a necessity. Word provides an easy way to create new footnotes, but what about ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2019 Sharon Parq Associates, Inc.
Comments