Стивен постоянно использует в своих документах «Отслеживание изменений». Ему нужен способ подсчитывать только те слова, которые были изменены в документе — те, на которые влияет функция «Отслеживать изменения».

Если вы используете старую версию Word (до Word 2003), есть способ сделать это. Если в поле «Найти» вы нажмете Ctrl + N, Word найдет только «новые» слова …​ т.е. отслеживаемые изменения. Затем вы можете заменить эти «слова» самими собой (используйте ^ & в поле «Заменить на») и получить количество замен.

Если вы используете Word 2003, эта возможность больше не существует из-за изменений в способах отслеживания и отображения изменений Word. В этом случае вам нужно будет использовать макрос для отображения желаемой информации. Ниже приведен пример макроса, который вы можете использовать:

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

Этот макрос проходит через каждое изменение в текущем документе и отдельно суммирует количество слов и количество символов как для вставок, так и для удалений. Затем статистика будет представлена ​​в окне сообщения. Обратите внимание, что макрос просматривает коллекцию слов для каждого изменения в документе.

Вы должны понимать, что количество слов, представленное здесь, является приблизительным. Это из-за способа подсчета слов. Например, каждый знак препинания в добавлении считается отдельным словом. Это означает, что фраза типа «как видите, это отличный способ» будет засчитана как десять слов вместо девяти (запятая считается отдельным словом). Кроме того, если добавленная вами фраза включала в себя начальный пробел — что часто бывает при вставках, — тогда для вставки будет учтено одиннадцать слов из-за этого места.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1095) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Counting_Changed_Words [Подсчет измененных слов].