请求为Word VBA表格宏添加自动字体配色（深色底白字/浅色底黑字）

核心思路 #

通过计算单元格底纹颜色的相对亮度，判断底纹深浅：亮度低于128时用白色字体，高于则用黑色字体，保证文字可读性。

完整代码实现 #

首先添加一个计算颜色亮度的自定义函数，再修改原有宏的逻辑：

' 计算RGB颜色的相对亮度（符合WCAG可读性标准）
Function GetColorBrightness(rgbColor As Long) As Integer
    Dim r As Integer, g As Integer, b As Integer
    ' 拆分RGB颜色分量
    r = rgbColor Mod 256
    g = (rgbColor \ 256) Mod 256
    b = (rgbColor \ 65536) Mod 256
    ' 计算亮度值（范围0-255）
    GetColorBrightness = CInt((0.299 * r + 0.587 * g + 0.114 * b))
End Function

Sub colourProgress()
    Dim c As Cell
    Dim cellRGB As Long
    Dim brightness As Integer
    
    ' 遍历选中表格的所有单元格（可根据需求调整范围）
    For Each c In Selection.Tables(1).Range.Cells
        ' --- 保留你原有设置底纹的代码 ---
        ' 示例逻辑（请替换成你实际的底纹判断规则）
        Select Case Trim(c.Range.Text)
            Case "完成": c.Shading.BackgroundPatternColor = RGB(0, 176, 80)
            Case "进行中": c.Shading.BackgroundPatternColor = RGB(255, 192, 0)
            Case "未开始": c.Shading.BackgroundPatternColor = RGB(255, 0, 0)
            ' 可继续添加其他内容对应的底纹颜色
        End Select
        ' --- 原有底纹代码结束 ---
        
        ' 获取当前单元格的底纹RGB值
        cellRGB = c.Shading.BackgroundPatternColor
        ' 计算底纹亮度
        brightness = GetColorBrightness(cellRGB)
        
        ' 根据亮度设置字体颜色
        If brightness < 128 Then
            c.Font.Color = vbWhite ' 深色底纹用白色字体
        Else
            c.Font.Color = vbBlack ' 浅色底纹用黑色字体
        End If
    Next c
End Sub

关键说明 #

• 你之前直接用c.Font.Color = white无效，是因为VBA中没有名为white的内置常量，需用vbWhite（对应白色）或RGB(255,255,255)。
• 自定义亮度函数采用WCAG标准公式，比简单取RGB平均值的判断更准确，能确保文字和底纹的对比度符合可读性要求。
• 若你的原有宏不是遍历选中表格，可修改For Each c In ...的范围（比如指定某张表格：ActiveDocument.Tables(2).Range.Cells）。

使用步骤 #

1. 打开Word，按下Alt+F11打开VBA编辑器。
2. 找到你原有colourProgress宏所在的模块，粘贴上述代码（替换原有宏，同时添加亮度函数）。
3. 返回Word，选中目标表格，按下Alt+F8运行colourProgress宏即可。

内容的提问来源于stack exchange，提问作者Mike Ashford-Hodges