Export (0) Print
Expand All
Expand Minimize

Selection.PreviousRevision Method (Word)

Published: July 16, 2012

Locates and returns the previous tracked change as a Revision object.

expression .PreviousRevision(Wrap)

expression Required. A variable that represents a Selection object.

Parameters

Name

Required/Optional

Data Type

Description

Wrap

Optional

Variant

True to continue searching for a revision at the end of the document when the beginning of the document is reached. The default value is False.

Return Value

Revision

This example selects the last tracked change in the first section in the active document and displays the date and time of the change.

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

This example rejects the previous tracked change found if the change type is deleted or inserted text. If the tracked change is a style change, the change is accepted.

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

Community Additions

ADD
Show:
© 2014 Microsoft