如何实现Word VBA用户窗体切换按钮仅部分标题文本变色？

核心说明 #

Word用户窗体的CommandButton控件不支持部分文本格式设置，因此需要改用Label控件模拟按钮（通过设置Label的点击事件和外观属性），利用Label的Characters属性实现指定文本段的颜色切换。

实现步骤 #

1. 替换控件：将原CommandButton替换为Label控件，设置以下属性让它看起来像按钮：
   • BackStyle：fmBackStyleOpaque
   • BackColor：按钮默认色（如&H8000000F）
   • BorderStyle：fmBorderStyleSingle
   • Caption：Upper (case) / Lower (case)
2. 跟踪切换状态：用Label的Tag属性记录当前应该变色的文本段（0对应Upper，1对应Lower）
3. 定时恢复颜色：通过Application.OnTime实现几秒后自动还原文本颜色

完整代码示例 #

用户窗体代码

Private Sub Label199_Click()
    Dim toggleState As Integer
    Dim startPos As Integer, lenPos As Integer
    Dim dict As Object
    
    ' 初始化字典存储控件颜色信息
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 读取当前切换状态，默认首次点击为0（Upper）
    toggleState = IIf(Label199.Tag = "", 0, CInt(Label199.Tag))
    
    ' 执行大小写切换逻辑
    Selection.Range.Case = wdToggleCase
    
    ' 取消当前标签未完成的定时任务并恢复颜色
    If dict.Exists(Label199.Name) Then
        Dim oldInfo As Variant
        oldInfo = dict(Label199.Name)
        Label199.Characters(oldInfo(0), oldInfo(1)).Font.Color = vbBlack
        On Error Resume Next
        Application.OnTime Now + TimeValue("00:00:04"), "ResetLabelColor """ & Label199.Name & """", , False
        On Error GoTo 0
        dict.Remove Label199.Name
    End If
    
    ' 设置要变色的文本范围
    If toggleState = 0 Then
        ' 变色"Upper"（第1-5个字符）
        startPos = 1
        lenPos = 5
        Label199.Tag = "1" ' 切换状态为下次点击Lower
    Else
        ' 变色"Lower"（第16-20个字符，需根据Caption准确计算位置）
        startPos = 16
        lenPos = 5
        Label199.Tag = "0" ' 切换状态为下次点击Upper
    End If
    
    ' 应用绿色
    Label199.Characters(startPos, lenPos).Font.Color = vbGreen
    
    ' 存储当前控件的颜色范围信息
    dict(Label199.Name) = Array(startPos, lenPos)
    
    ' 设置4秒后恢复颜色的定时任务
    Application.OnTime Now + TimeValue("00:00:04"), "ResetLabelColor """ & Label199.Name & """"
End Sub

标准模块代码（如Module2）

Public Sub ResetLabelColor(labelName As String)
    Dim lbl As MSForms.Label
    Dim dict As Object
    Dim info As Variant
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set lbl = UserForm1.Controls(labelName)
    
    ' 恢复文本颜色为黑色
    If dict.Exists(labelName) Then
        info = dict(labelName)
        lbl.Characters(info(0), info(1)).Font.Color = vbBlack
        dict.Remove labelName
    End If
End Sub

多按钮扩展说明 #

如果需要添加多个类似按钮，只需重复以下操作：

1. 添加新的Label控件，设置对应外观和Caption
2. 复制Label的点击事件代码，修改控件名称（如Label200）和对应的文本变色范围
3. 定时任务会通过字典自动区分不同控件，无需额外修改模块代码

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