Метод Selection.PreviousRevision (Word)

Статья
04/07/2023

Находит и возвращает предыдущее отслеживаемое изменение в качестве объекта Revision .

Синтаксис

выражение. PreviousRevision( _Wrap_ )

выражение (обязательно). Переменная, представляющая объект Selection .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Wrap	Необязательный	Variant	Значение true , чтобы продолжить поиск редакции в конце документа при достижении начала документа. Значение по умолчанию — False.

Возвращаемое значение

Revision

Пример

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

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

В этом примере отклоняется предыдущее отслеживаемое изменение, обнаруженное при удалении или вставке текста типа изменения. Если отслеживаемое изменение является изменением стиля, изменение принимается.

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

См. также

Объект selection

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

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

Поделиться через