如何让自定义Word功能区项目符号切换按钮实现原生按钮行为？

问题现象 #

自定义功能区的三个项目符号切换按钮样式功能正常，但和原生「开始」选项卡按钮行为不一致：

• 切换到其他行时，按钮仍保持按下状态
• 在无项目符号的行上，必须点击按钮才能取消按下状态

解决方案 #

1. 修复getPressed回调（核心修正） #

原代码仅判断是否为项目符号列表，未区分具体自定义样式，导致所有按钮状态判断混乱。修改后需精准匹配当前选中内容的关联样式或列表模板：

'Callback for togglebutton getPressed
Sub buttonPressed(control As IRibbonControl, ByRef toggleState)
    Dim selectedStyle As Style
    Dim listTemplate As ListTemplate
    
    ' 默认按钮未按下
    toggleState = False
    
    Set selectedStyle = Selection.Style
    
    Select Case control.ID
        Case "TB11" ' 对应Bullet style 1
            toggleState = (selectedStyle.NameLocal = "Bullet style 1")
            ' 额外检查列表模板，兼容样式未正确关联的场景
            If Not toggleState Then
                On Error Resume Next
                Set listTemplate = Selection.Range.ListFormat.ListTemplate
                toggleState = (listTemplate.Name = "Bullet style 1")
                On Error GoTo 0
            End If
            
        Case "TB12" ' 对应Bullet style 2
            toggleState = (selectedStyle.NameLocal = "Bullet style 2")
            If Not toggleState Then
                On Error Resume Next
                Set listTemplate = Selection.Range.ListFormat.ListTemplate
                toggleState = (listTemplate.Name = "Bullet style 2")
                On Error GoTo 0
            End If
            
        Case "TB4" ' 对应Bullet style 0
            toggleState = (selectedStyle.NameLocal = "Bullet style")
            If Not toggleState Then
                On Error Resume Next
                Set listTemplate = Selection.Range.ListFormat.ListTemplate
                toggleState = (listTemplate.Name = "Bullet style")
                On Error GoTo 0
            End If
    End Select
End Sub

2. 优化onAction回调逻辑 #

原逻辑依赖按钮的pressed参数执行操作，未匹配实际内容状态。修改后实现原生按钮的逻辑：已应用对应样式则取消，未应用则添加：

'Callback for Toggle onAction
Sub ToggleonAction(control As IRibbonControl, pressed As Boolean)
    Dim currentStyleName As String
    Dim targetStyleName As String
    Dim targetTemplateName As String
    
    On Error GoTo ErrorHandler
    
    ' 绑定按钮ID与对应样式/模板名称
    Select Case control.ID
        Case "TB11"
            targetStyleName = "Bullet style 1"
            targetTemplateName = "Bullet style 1"
        Case "TB12"
            targetStyleName = "Bullet style 2"
            targetTemplateName = "Bullet style 2"
        Case "TB4"
            targetStyleName = "Bullet style"
            targetTemplateName = "Bullet style"
        Case Else
            Exit Sub
    End Select
    
    currentStyleName = Selection.Style.NameLocal
    
    ' 判断当前是否已应用目标样式或列表模板
    Dim isApplied As Boolean
    isApplied = (currentStyleName = targetStyleName)
    If Not isApplied Then
        On Error Resume Next
        isApplied = (Selection.Range.ListFormat.ListTemplate.Name = targetTemplateName)
        On Error GoTo 0
    End If
    
    If isApplied Then
        ' 已应用则移除项目符号
        Selection.Range.ListFormat.RemoveNumbers
    Else
        ' 未应用则执行对应样式宏
        Select Case control.ID
            Case "TB11": Call BulletListStyle1
            Case "TB12": Call BulletListStyle2
            Case "TB4": Call BulletListStyle0
        End Select
    End If
    
    ' 强制刷新按钮状态
    myRibbon.InvalidateControl control.ID
    Exit Sub
    
ErrorHandler:
    MsgBox "操作出错: " & Err.Description, vbExclamation
End Sub

3. 修复BulletListStyle系列宏的模板覆盖问题 #

原代码直接修改Word默认的项目符号模板（ListTemplates(1)），会导致原生按钮异常。改为创建独立的列表模板：

Sub BulletListStyle2()
'This macro applies the Style 'Bullet style 2' to text
    Dim newListTemplate As ListTemplate
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 创建新的列表模板，避免覆盖默认模板
    Set newListTemplate = doc.ListTemplates.Add(OutlineNumbered:=False)
    
    With newListTemplate.ListLevels(1)
        .NumberFormat = ChrW(8208)        ' hyphen "-"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.5)
        .TabPosition = CentimetersToPoints(0.5)
        .ResetOnHigher = 0
        .StartAt = 0
        With .Font
            .Name = "Calibri"
        End With
        .LinkedStyle = "Bullet style 2"
    End With
    newListTemplate.Name = "Bullet style 2"
    
    ' 应用列表模板到选中内容
    Selection.Range.ListFormat.ApplyListTemplateWithLevel _
        ListTemplate:=newListTemplate, _
        ContinuePreviousList:=False, _
        ApplyTo:=wdListApplyToWholeList, _
        DefaultListBehavior:=wdWord10ListBehavior
End Sub

4. 确保Ribbon对象正确初始化 #

需添加全局变量与加载回调，保证按钮状态能正常刷新：

Public myRibbon As IRibbonUI

'Callback for customUI onLoad
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set myRibbon = ribbon
End Sub

同时在自定义功能区的XML代码中添加onLoad="RibbonOnLoad"属性。

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