Accept 方法

此方法用于接受指定的带标记的修订。修订标记将被删除，修订将合并到文档中。

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

示例

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

Set revNext = Selection.NextRevision(Wrap:=True)

If Not (revNext Is Nothing) Then
    If revNext.Type = wdRevisionInsert Then revNext.Accept
End If

本示例接受所选内容中的所有修订。

Dim revLoop As Revision
Dim rngSelection As Range

Set rngSelection = Selection.Range
For Each revLoop In rngSelection.Revisions
    revLoop.Accept
Next revLoop