AcceptAll 方法

接受某一文档或区域中的所有修订。修订标记将被删除，修订将合并到文档中。

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

说明

应用 AcceptAllRevisions 方法来接受文档中的所有修订。

示例

本示例接受活动文档中的所有修订。

If ActiveDocument.Revisions.Count >= 1 Then _
    ActiveDocument.Revisions.AcceptAll

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

Selection.Range.Revisions.AcceptAll