Compartilhar via

Document.AcceptAllRevisionsShown Method

  • Artigo
Word Developer Reference

Accepts all revisions in the specified document that are displayed on the screen.

Syntax

expression.AcceptAllRevisionsShown

expression   Required. A variable that represents a Document object.

Remarks

Use the RejectAllRevisionsShown method to reject all revisions in a specified document that are displayed on the screen.

Example

This example accepts all revisions displayed after hiding revisions made by "Jeff Smith." This example assumes that the active document was reviewed by more than one person and that the name of one of the reviewers is "Jeff Smith."

Visual Basic for Applications 
  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.<strong class="bterm">AcceptAllRevisionsShown</strong>



End Sub

See Also