通过

Selection.NextRevision 方法 (Word)

  • 项目

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

语法

expression。 NextRevision( _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 支持和反馈，获取有关如何接收支持和提供反馈的指南。