寻求Word宏开发帮助：批量统一所有带底纹单元格的底纹颜色

嘿，我完全懂你的需求——要把文档里所有带任意底纹的单元格，统一改成同一种颜色来保证格式一致对吧？你说的没错，Word VBA设置底纹确实需要明确指定颜色信息，但我们可以先判断哪些单元格有底纹，再批量替换，下面给你完整的解决方案：

完整宏代码 #

Sub ChangeShadingColor()
    Dim myTable As Table
    Dim cll As Cell
    ' 定义目标底纹颜色，这里用25%灰色为例，你可以按需修改
    Dim targetShadingColor As WdColor
    targetShadingColor = wdGray25 ' 也可以用RGB自定义颜色，比如 RGB(220, 220, 220)
    
    ' 遍历文档中每一个表格
    For Each myTable In ActiveDocument.Tables
        ' 遍历当前表格的所有单元格
        For Each cll In myTable.Range.Cells
            ' 判断单元格是否带有底纹（不管原底纹是什么颜色/样式）
            If cll.Shading.Texture <> wdTextureNone Then
                ' 统一设置为实心底纹+目标颜色
                cll.Shading.Texture = wdTextureSolid
                cll.Shading.ForegroundPatternColor = targetShadingColor
                ' 若需要同步背景色，可取消下面这行注释（一般不需要，Foreground已足够）
                ' cll.Shading.BackgroundPatternColor = targetShadingColor
            End If
        Next cll
    Next myTable
    
    MsgBox "所有带底纹单元格的颜色已统一完成！", vbInformation
End Sub

关键细节说明 #

• 颜色选择：你可以把targetShadingColor改成你需要的颜色。既可以用Word内置的WdColor常量（比如wdRed、wdLightBlue），也可以用RGB(R, G, B)函数自定义颜色（R/G/B取值0-255）。
• 识别带底纹的单元格：通过cll.Shading.Texture <> wdTextureNone判断——只要单元格有任何底纹（不管是纯色、渐变还是图案），它的纹理属性就不会是“无”。
• 覆盖原有底纹：设置Texture = wdTextureSolid确保底纹是实心的，再指定前景色，就能完全替换掉原来的底纹样式和颜色。

小提示 #

• 打开Word VBA编辑器（按Alt+F11），按F2打开对象浏览器，搜索WdColor就能看到所有内置颜色常量的具体值。
• 这个宏会处理文档里的所有表格，包括嵌套表格里的单元格，不用担心遗漏。
• 运行宏前记得先保存文档，避免意外丢失内容。

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