Линда интересуется, есть ли способ подсчитать количество слов в комментариях (и только в комментариях) в документе.

Самый простой способ выполнить эту задачу — использовать макрос. Это связано с тем, что Word предоставляет VBA коллекцию комментариев, которая включает все комментарии в документе. Все, что вам нужно сделать, это пройтись по каждому комментарию, а затем посмотреть на свойство Count коллекции Words для комментария следующим образом:

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), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13531) относится к Microsoft Word 2007, 2010, 2013 и 2016.