接受显示在屏幕上的指定文档中的所有修订。
expression.AcceptAllRevisionsShown
expression 必需。该表达式返回一个 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