AcceptAllRevisions 方法

接受对指定文档的所有修订。

expression   必需。该表达式返回一个 Document 对象。

示例

本示例检查对活动文档正文部分的修订，如果有，则合并（及接受）文档的各个组成部分的所有修订。

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