Selection.PreviousRevision method (Word)

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

Синтаксис

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

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

Параметры

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

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

Редакция

Пример

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

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

См. также

Объект выделения

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

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