VBA【标题】Word标题 展开/折叠

简介

VBA 折叠和展开，首先想到的是用Collapse或Expand函数，下述代码进行尝试：

For Each para In ActiveDocument.Range(Selection.start).Paragraphs
    para.Range.Select '选中>提高程序易读性
    If para.OutlineLevel = wdOutlineLevel2 Then 
        Dim rngOne As Range
        Set rngOne = Selection.Bookmarks("\HeadingLevel").Range
        rngOne.Select
        Selection.Collapse wdCollapseStart
    End If
Next

结果：Selection.Collapse wdCollapseStart 不能折叠或展开标题

解决之路

☁ 尝试使用“宏录制”，当右键折叠标题时，右键菜单没弹没有反应
☁ 无奈，寻求网络帮助。

1. 百度搜索 “vba 折叠展开标题”，第一页没有找到期望结果，第二页有个网址貌似有戏
   
   Word 2016中的导航窗格:强制折叠标题视图的VBA代码，其中有个外国老哥的答案启发到我

   CommandBars.ExecuteMso “MinimizeRibbon”

2. 之前我发过CSDN博客关于内置图标Mso的，对这方面也有些耳闻，于是就想者这个按钮也能不能有Mso，有就好办了。
   接下来就不一一详细介绍了，直接上图片
   
   
   鼠标hover到第二个图红框就能获取到Mso了，贴出Mso：

   CollapseHeading
   ExpandHeading

好了，大家尽情玩耍。

总结

以上，记录下　/2024年4月11日/