RejectAllRevisionsShown 方法

拒绝显示在屏幕上的文档的所有修订。

expression   必需。该表达式返回一个 Document 对象。

示例

本示例隐藏 Jeff Smith 所作的所有修订，并拒绝显示的所有剩余修订。

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