如何接受选择中的所有更改？

Question

我正在尝试接受 Word 2013 selection 中的所有更改。

我使用了宏录制器，它生成了以下代码（也可以在 https://docs.microsoft.com/en-us/office/vba/api/word.revisions.acceptall 找到）

Selection.Range.Revisions.AcceptAll

但是，除非我亲自 select 每个字母

，否则它不会工作

但是如果我使用 'Review' 选项卡中 'Changes' 组中的内置按钮，我就不必 select 整个字母。我只需要 select 更改的任何部分，它就会接受更改。

为什么宏版本不像 UI 选项那样执行？

Answer 1

这是奇怪的行为。 UI 一定在做类似下面的事情，但是构建宏记录器的人错过了它。

Public Sub AcceptSelection()
    
    Dim rev As Revision
    
    For Each rev In Selection.Range.Revisions
        rev.Accept
    Next rev
    
End Sub

该代码将接受选择中的任何修改，即使是部分修改。

如何接受选择中的所有更改？

How to Accept All Changes In Selection?

vba

ms-word