Word VBA教程:Reject方法

拒绝接受指定的修订。将会删除修订标记,不改变原文。

注意  对格式的修改不能加以拒绝。

expression.Reject

expression   必需。返回 Revision对象的表达式。

VBA示例

本示例将拒绝在活动文档中找到的下一处修订。


Dim revNext As Revision
If ActiveDocument.Revisions.Count >= 1 Then
    Set revNext = Selection.NextRevision
    If Not (revNext Is Nothing) Then revNext.Reject
End If

本示例拒绝第一段中的所有修订。


Dim rngTemp As Range
Dim revLoop As Revision
Set rngTemp = ActiveDocument.Paragraphs(1).Range
For Each revLoop In rngTemp.Revisions
    revLoop.Reject
Next revLoop

本示例拒绝所选内容中的第一处修订。


Dim rngTemp As Range
Set rngTemp = Selection.Range
If rngTemp.Revisions.Count >= 1 Then _
    rngTemp.Revisions(1).Reject

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号