Word VBA教程:Accept方法

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

expression.Accept

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号