通过

Selection.PreviousRevision 方法 (Word)

  • 项目

找到前一处修订并作为 Revision 对象返回。

语法

expression。 PreviousRevision( _Wrap_ )

expression 是必需的。 表示 Selection 对象的变量。

参数

名称 必需/可选 数据类型 说明
Wrap 可选 Variant 如果为 True，则在到达文档开始时继续从文档尾部查找修订。 默认值为 False。

返回值

Revision

示例

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

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

另请参阅

Selection 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。