Reject 方法

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

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

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

示例

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

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