求适配Word的VBA代码：清除白色背景表格单元格文本

Word和Excel的对象模型结构不同，你提供的Excel代码无法直接在Word中运行，以下是等效的Word VBA代码，可实现删除带有白色背景的表格单元格内的文本：

Sub ClearWhiteBgTableCellText()
    Dim tbl As Table
    Dim cell As Cell
    
    ' 遍历当前文档中的所有表格
    For Each tbl In ActiveDocument.Tables
        ' 逐个检查表格内的每个单元格
        For Each cell In tbl.Range.Cells
            ' 判断单元格底纹是否为白色
            If cell.Shading.BackgroundPatternColor = wdColorWhite Then
                ' 清空单元格内容
                cell.Range.Text = ""
            End If
        Next cell
    Next tbl
End Sub

补充说明 #

• 如果你只需要处理文档中的某个特定表格，可将遍历所有表格的代码替换为指定表格，比如处理第一个表格：Set tbl = ActiveDocument.Tables(1)
• Word中单元格底纹的属性是Shading.BackgroundPatternColor，而非Excel的Interior.Color，白色常量对应wdColorWhite
• 清空Word单元格内容使用cell.Range.Text = ""，替代Excel的ClearContents方法

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