Revision.Accept 方法 (Word)

  • 项目

接受指定修订、删除修订标记并将更改合并到文档中。

语法

expression. Accept

表达式是必需的。 一个代表“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

另请参阅

修订对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。