Метод Document.AcceptAllRevisionsShown (Word)

Статья
04/07/2023

Принимает все редакции указанного документа, отображаемые на экране.

Синтаксис

выражение. AcceptAllRevisionsShown

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

Замечания

Используйте метод RejectAllRevisionsShown , чтобы отклонить все редакции в указанном документе, отображаемые на экране.

Пример

В этом примере принимаются все редакции, отображаемые после скрытия исправлений, внесенных "Jeff Smith". В этом примере предполагается, что активный документ был проверен несколькими пользователями, а имя одного из рецензентов — "Джефф Смит".

Sub AcceptAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Accept all revisions displayed in the active view 
 ActiveDocument.AcceptAllRevisionsShown 
 
End Sub

См. также

Объект Document

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

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

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