取消选中 MSWord 跟踪更改标记选项中的“格式”？（Office 365 for Mac v16.26）答案

【问题标题】：Uncheck "Formatting" in MSWord tracked changes Markup Options? (Office 365 for Mac v16.26)取消选中 MSWord 跟踪更改标记选项中的“格式”？（Office 365 for Mac v16.26）
【发布时间】：2019-07-08 13:02:57
【问题描述】：

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

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

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

Sub AutoOpen()

    ActiveDocument.TrackRevisions = True

    With ActiveDocument
        .TrackFormatting = False
    End With

End Sub

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

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

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

【问题讨论】：

标签： vba ms-word

【解决方案1】：

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

Dim doc As Word.Document

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

【讨论】：

这正是我想要的——谢谢！