vba - 取消选中 MSWord 中的 "Formatting"跟踪更改标记选项？ (Office 365 for Mac v16.26)

Question

我想对所有文档使用一个 AutoOpen() 子来 (1) 打开跟踪更改 [这部分是成功的] 和 (2) 阻止 Word 在边栏中显示格式更改。 Word 默认在气球中显示所有注释和格式，这是我想要的，但我实际上不需要跟踪或查看格式更改。

参见![截图] https://imgur.com/a/28ARVob获取我想通过宏自动完成的屏幕截图。当我选择 Record Macro，取消勾选 Formatting 并停止录制时，VBE 中没有生成任何代码。 Word(Mac 或其他)的 VBA 中似乎没有可以实现此目标的可用属性。

这是我当前的 AutoOpen() 代码:

Sub AutoOpen()

    ActiveDocument.TrackRevisions = True

    With ActiveDocument
        .TrackFormatting = False
    End With

End Sub

像我目前所做的那样，关闭跟踪格式只会在以后起作用，因此在我取消选中“格式”选项之前，所有现有更改仍将显示。至少这是一个部分解决方案。

我也知道有一个属性可以整体显示/隐藏修订(即我可以包含代码:.ShowRevisions = False)，但这并不是我在这里寻找的，因为我只想要隐藏格式(我希望它类似于 .ShowFormatting，但这不是 VBA 中的属性)。

欢迎提出任何想法/建议。

Answer 1

这些设置在对象模型的不同部分，在 View 对象下。下面的代码片段展示了如何关闭跟踪更改的显示。请注意，这不会从文档中删除它们，它只会抑制显示。为了从文档中删除这些修订，有必要接受或拒绝更改。

Dim doc As Word.Document

Set doc = ActiveDocument
doc.TrackRevisions = True
doc.TrackFormatting = False
doc.ActiveWindow.View.ShowFormatChanges = False