使用英语阅读

通过


Selection.NextRevision 方法 (Word)

查找并返回作为 修订 对象的下一处修订。

语法

expressionNextRevision( _Wrap_ )

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

参数

名称 必需/可选 数据类型 说明
Wrap 可选 Variant 要继续到达文档结尾时修订文档的开头搜索。 默认值为 False

返回值

Revision

备注

修订的文本成为当前所选内容。 使用生成的 修订 对象的属性来查看哪种类型的更改是,哪些人做它,等等。 修订 对象的方法可用于接受或拒绝更改。

如果没有发现有修订,当前的选择区域保持不变。

示例

本示例拒绝后第五段找到活动文档中下一处修订。 如果未找到更改,则 revTemp变量设置为 Nothing

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

如果下一处修订类型是插入文本,本示例将接受该修订。

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

本示例在当前选定内容后找到由文档作者制作的下一处修订。

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

另请参阅

Selection 对象

支持和反馈

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