通过

Document.AcceptAllRevisionsShown 方法 (Word)

  • 项目

接受显示在屏幕上的指定文档中的所有修订。

语法

expression. AcceptAllRevisionsShown

表达式是必需的。 一个代表 Document 对象的变量。

备注

使用 RejectAllRevisionsShown 方法拒绝指定文档中所有显示在屏幕的修订。

示例

本示例在隐藏"Jeff Smith"所作修订之后，接受所有显示的修订。本示例假定活动文档有多人审阅过，其中一个审阅者的姓名是"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 支持和反馈，获取有关如何接收支持和提供反馈的指南。