Объект Revisions (Word)

  • Статья

Коллекция объектов Revision , представляющих изменения, помеченные метками редакции в диапазоне или документе.

Замечания

Используйте свойство Revisions , чтобы вернуть коллекцию Редакций . В следующем примере кода отображается количество исправлений в основной текстовой истории.

MsgBox ActiveDocument.Revisions.Count

В следующем примере кода принимаются все редакции в выделенном фрагменте.

For Each myRev In Selection.Range.Revisions 
 myRev.Accept 
Next myRev

В следующем примере кода принимаются все редакции в первом абзаце выделенного фрагмента.

Set myRange = Selection.Paragraphs(1).Range 
myRange.Revisions.AcceptAll

Метод Add недоступен для коллекции Revisions . Объекты редакции добавляются, когда включено отслеживание изменений. Задайте для свойства TrackRevisions значение True , чтобы отслеживать изменения, внесенные в текст документа. В следующем примере кода включается отслеживание редакций в активном документе, а затем перед выделением вставляется "The".

ActiveDocument.TrackRevisions = True 
Selection.InsertBefore "The "

Используйте редакции (Index), где Index — это номер индекса, чтобы вернуть один объект Revision . Номер индекса представляет позицию редакции в диапазоне или документе. В следующем примере кода отображается имя автора первой редакции в первом разделе.

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

Свойство Count для этой коллекции в документе возвращает количество элементов только в основной истории. Для подсчета элементов в других историях используйте коллекцию с объектом Range .

Методы

Имя
AcceptAll
Item
RejectAll

Свойства

Имя
Application
Count
Creator
Parent

См. также

Справочник по объектной модели Word

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.