如何通过VBA控制Word快速样式选择菜单的样式显示与切换？

核心原理 #

Word中每个样式都自带ShowInQuickStyleGallery布尔属性，直接决定该样式是否显示在快速样式选择菜单中：设为True则显示，False则隐藏。所有操作均围绕该属性展开。

一、清空快速样式菜单 #

遍历文档所有样式，将其显示属性设为False即可清空菜单。若需保留内置样式，可添加判断条件排除：

Sub ClearQuickStyleGallery()
    Dim s As Style
    For Each s In ActiveDocument.Styles
        ' 取消注释可保留内置样式
        ' If Not s.BuiltIn Then
            s.ShowInQuickStyleGallery = False
        ' End If
    Next s
End Sub

二、添加指定后缀的样式到菜单 #

筛选名称以目标后缀结尾的自定义样式，将其显示属性设为True：

Sub AddStylesToQuickStyleBySuffix(targetSuffix As String)
    Dim s As Style
    For Each s In ActiveDocument.Styles
        ' 仅处理自定义样式，避免修改Word内置样式
        If Not s.BuiltIn And Right(s.NameLocal, Len(targetSuffix)) = targetSuffix Then
            s.ShowInQuickStyleGallery = True
        End If
    Next s
End Sub

三、添加切换按钮到选项卡 #

通过VBA可在Word选项卡中添加按钮，绑定切换宏实现两组样式的快速切换。注意德语版Word的选项卡/命令栏名称需对应调整（例如「开始」选项卡对应德语的"Start"）：

Sub AddStyleToggleButtons()
    Dim cmdBar As CommandBar
    Dim btnGroupA As CommandBarButton, btnGroupB As CommandBarButton
    
    ' 获取德语版「开始」选项卡的命令栏
    Set cmdBar = Application.CommandBars("Start").CommandBar
    
    ' 添加切换到A组样式的按钮
    Set btnGroupA = cmdBar.Controls.Add(Type:=msoControlButton)
    With btnGroupA
        .Caption = "切换到A组样式"
        .Style = msoButtonCaption
        .OnAction = "ToggleStyleGroupA"
    End With
    
    ' 添加切换到B组样式的按钮
    Set btnGroupB = cmdBar.Controls.Add(Type:=msoControlButton)
    With btnGroupB
        .Caption = "切换到B组样式"
        .Style = msoButtonCaption
        .OnAction = "ToggleStyleGroupB"
    End With
End Sub

' 切换到A组样式的宏
Sub ToggleStyleGroupA()
    ClearQuickStyleGallery
    AddStylesToQuickStyleBySuffix "_GroupA" ' 替换为你的A组样式后缀
End Sub

' 切换到B组样式的宏
Sub ToggleStyleGroupB()
    ClearQuickStyleGallery
    AddStylesToQuickStyleBySuffix "_GroupB" ' 替换为你的B组样式后缀
End Sub

注意事项 #

1. 德语版Word的命令栏、选项卡名称需对应德语术语，若"Start"不生效，可通过Application.CommandBars遍历查看具体名称。
2. VBA添加的选项卡按钮会在Word重启后消失，若需永久保留，建议使用RibbonX自定义方式。
3. 操作内置样式时需谨慎，避免破坏Word默认格式逻辑。

内容的提问来源于stack exchange，提问作者Lukas