VB脚本需求：仅当Word表格单元格为特定值时着色

原脚本的问题出在两处：

• 使用Like "*1*"属于模糊匹配，只要单元格包含目标数字就会触发，无法实现精确匹配需求
• Word表格单元格的Range.Text会自动附加隐藏的段落标记（Chr(13) & Chr(7)），直接匹配会导致判断误差

以下是修正后的代码，仅当单元格内容完全等于目标值时才设置对应背景色：

Sub CheckTableCellContent()
    Dim tbl As Table
    Dim row As row
    Dim cell As cell
    Dim cellText As String ' 存储处理后的纯单元格文本
    
    For Each tbl In ActiveDocument.Tables
        For Each row In tbl.Rows
            For Each cell In row.Cells
                ' 移除单元格末尾的隐藏标记，再清除前后空格（不需要忽略空格可去掉Trim）
                cellText = Trim(Replace(cell.Range.Text, Chr(13) & Chr(7), ""))
                
                ' 精确匹配判断
                Select Case cellText
                    Case "1"
                        cell.Shading.BackgroundPatternColor = RGB(0, 176, 80)
                    Case "2"
                        cell.Shading.BackgroundPatternColor = RGB(146, 208, 80)
                    Case "3"
                        cell.Shading.BackgroundPatternColor = RGB(255, 255, 0)
                    Case "4"
                        cell.Shading.BackgroundPatternColor = RGB(255, 0, 0)
                    ' 如需清除非匹配单元格的背景色，可取消下面注释
                    ' Case Else
                    '     cell.Shading.BackgroundPatternColor = wdColorAutomatic
                End Select
            Next cell
        Next row
    Next tbl
End Sub

核心调整说明： #

• 清理单元格文本：通过Replace去掉Word单元格自带的隐藏结束标记，Trim确保忽略内容前后的冗余空格（不需要的话可删除Trim）
• 精确匹配逻辑：用Select Case直接判断处理后的文本是否与目标值完全一致，替代原有的模糊Like匹配，确保只有内容恰好符合的单元格才会被着色
• 扩展性：要新增匹配值，直接在Select Case里添加Case分支即可；需要清除非匹配单元格背景色时，取消Case Else部分的注释

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