Метод Selection.NextRevision (Word)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

Revision

Замечания

Измененный текст становится текущим выделенным. Используйте свойства результирующего объекта Revision , чтобы узнать тип изменения, кто его внес и т. д. Используйте методы объекта Revision , чтобы принять или отклонить изменение.

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

Пример

В этом примере отклоняется следующее отслеживаемое изменение, обнаруженное после пятого абзаца в активном документе. Если revTempизменение не найдено, переменная имеет значение Nothing .

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

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

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

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

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

См. также

Объект selection

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

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

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