返回介绍

Accept 方法

发布于 2019-09-29 09:52:53 字数 580 浏览 1166 评论 0 收藏 0

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

expression.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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文