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

Метод Document.RejectAllRevisionsShown (Word)

  • Статья

Отклоняет все редакции документа, отображаемые на экране.

Синтаксис

выражение. RejectAllRevisionsShown

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

Пример

В этом примере скрываются исправления, внесенные Джеффом Смитом, и отклоняются все остальные отображаемые редакции.

Sub RejectAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Show all revisions in the document 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide revisions made by "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Reject all revisions displayed in the active view 
 ActiveDocument.RejectAllRevisionsShown 
End Sub

См. также

Объект Document

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

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