根据单元格内容更改Word表格单元格背景颜色。

Sub ChangeCellColor()
    Dim tbl As Table
    Dim cell As Cell
    
    Set tbl = ActiveDocument.Tables(1) '假设要更改的表格是文档中的第一个表格
    
    For Each cell In tbl.Range.Cells
        Select Case cell.Range.Text
            Case "内容1"
                cell.Shading.BackgroundPatternColor = RGB(255, 0, 0) '红色背景
            Case "内容2"
                cell.Shading.BackgroundPatternColor = RGB(0, 255, 0) '绿色背景
            Case "内容3"
                cell.Shading.BackgroundPatternColor = RGB(0, 0, 255) '蓝色背景
            Case Else
                cell.Shading.BackgroundPatternColor = RGB(255, 255, 255) '默认白色背景
        End Select
    Next cell
End Sub