返回介绍

PreviousRevision 方法

发布于 2019-09-29 09:59:38 字数 793 浏览 1103 评论 0 收藏 0

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

expression.PreviousRevision(Wrap)

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文