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

iNumChanges = ActiveDocument.Revisions.Count

Как и в любой другой коллекции, вы можете пройти по каждому члену коллекции Revisions и выяснить различную информацию об изменениях, представленных в каждом конкретном элементе. Хотя подробности о том, какие свойства и методы принадлежат коллекции Revisions, слишком объемны для этого совета, вы можете определить тип каждого изменения, просмотрев свойство Type следующим образом:

vChange = ActiveDocument.Revisions(1).Type

На этом этапе vChange будет соответствовать типу ревизии, которую отслеживает Word. Фактическое количество или типы редакций зависят от версии Word, которую вы используете, но это возможные значения и имена встроенных перечислений для типов редакций:

Value

Enumeration

0

wdNoRevision

1

wdRevisionInsert

2

wdRevisionDelete

3

wdRevisionProperty

4

wdRevisionParagraphNumber

5

wdRevisionDisplayField

6

wdRevisionReconcile

7

wdRevisionConflict

8

wdRevisionStyle

9

wdRevisionReplace

10

wdRevisionParagraphProperty

11

wdRevisionTableProperty

12

wdRevisionSectionProperty

13

wdRevisionStyleDefinition

14

wdRevisionMovedFrom

15

wdRevisionMovedTo

16

wdRevisionCellInsertion

17

wdRevisionCellDeletion

18

wdRevisionCellMerge

20

wdRevisionConflictInsert

21

wdRevisionConflictDelete

Дополнительную информацию можно найти в справочной системе Word или поискав в Интернете фразу «сборник исправлений».

Информацию о перечислениях можно найти на сайте Microsoft:

https://docs.microsoft.com/en-us/office/vba/api/Word.WdRevisionType

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (8922) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для пользователей старый интерфейс меню Word здесь:

link: / word-Examining_Tracked_Changes_in_a_Macro [Изучение отслеживаемых изменений в макросе].