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