Word 2016 中的导航窗格：强制折叠标题视图的 VBA 代码

Question

我正在尝试编写一个在打开 .docx 文档时运行的 VBA 宏。我希望它强制显示导航窗格，然后强制所有标题（任何级别）以折叠模式显示。我正在尝试使用宏记录器获取折叠命令的代码。

当我录制宏时，我所拥有的只是：

ActiveWindow.DocumentMap = True

右键单击导航窗格中的标题并折叠不会记录代码行。这个事件有VBA方法吗？

Answer 1

截至 2019 年撰写本文时，这还无法通过 VBA 实现。长期以来一直向微软提出要求。

正如这篇 Microsoft 论坛帖子中最初建议的那样，折叠导航窗格中所有标题的最快方法是右键单击其中一个标题，然后单击“全部折叠”。显然，这不是一个自动化/基于宏的解决方案，但在 Microsoft 通过 VBA 对象模型公开任务窗格之前，这就是我们所拥有的一切。