Compartir a través de

Revision.Reject Method

  • Artículo
Word Developer Reference

Rejects the specified tracked change. The revision marks are removed, leaving the original text intact.

Syntax

expression.Reject

expression   Required. A variable that represents a Revision object.

Remarks

Formatting changes cannot be rejected.

Example

This example rejects the next tracked change found in the active document.

Visual Basic for Applications 
  Dim revNext As Revision

If ActiveDocument.Revisions.Count >= 1 Then
Set revNext = Selection.NextRevision
If Not (revNext Is Nothing) Then revNext.Reject
End If

This example rejects the tracked changes in the first paragraph.

Visual Basic for Applications 
  Dim rngTemp As Range
Dim revLoop As Revision

Set rngTemp = ActiveDocument.Paragraphs(1).Range
For Each revLoop In rngTemp.Revisions
revLoop.Reject
Next revLoop

This example rejects the first tracked change in the selection.

Visual Basic for Applications 
  Dim rngTemp As Range

Set rngTemp = Selection.Range
If rngTemp.Revisions.Count >= 1 Then _
rngTemp.Revisions(1).Reject

See Also