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

2つのマクロの結果を比較すると、単語数の違いに気付く場合があります。これは、CompuStatisticsメソッドが計算を行うときに句読点を処理する方法が原因です。

結果を比較し、コメント内の情報の特性に基づいて、ニーズに最適なアプローチを選択する必要があります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13531）は、Microsoft Word 2007、2010、2013、および2016に適用されます。