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

Question

我试图在使用VBA宏打开.docx文档时强制显示导航窗格，然后强制标题（任何级别）以折叠模式显示。折叠命令的代码是什么？

记录宏时我所拥有的就是

ActiveWindow.DocumentMap = True

右键单击标题并折叠不会记录代码行。这个活动有代码吗？

Answer 1

我通过AutoHotKey脚本为自己“解决”了此要求，该脚本仅发送必要的鼠标单击和后续击键。虽然不漂亮，但大多数时候都有效。 此致，Hauke

Answer 2

截至2019年，本文尚无法通过VBA实现。已要求Microsoft提供a long time。

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

Answer 3

那可以很简单：

CommandBars.ExecuteMso "MinimizeRibbon"

注意：在功能区已经被隐藏时，执行上述操作取消隐藏。