Word VBA教程:PreviousRevision方法

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

expression.PreviousRevision(Wrap)

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

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号