PreviousRevision 方法

以 Revision 对象定位并返回前一处修订。

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

Wrap   Variant 类型，可选。为 True 时则在到达文档开始时继续从文档尾部查找修订。默认值为 False。

示例

本示例选定活动文档第一节中的最后一个修订，并显示此修订的日期与时间。

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

如果前一处修订的修改类型为删除或插入文本，则本示例将予以拒绝。如果修订类型为样式修改，则将接受该修订。

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