在Word中清除表格底纹

我有一个包含137张桌子的文档，这些桌子全都以可怕的蓝色和3D阴影显示，从而占用了太多空间。

如何至少摆脱对他们所有的阴影在同一时间？

很高兴知道如何编辑它们以摆脱多余的样式并使它们成为可以自动调整内容的简单的行表，但是我知道这是很多问题。

您可以将此VBA作为宏运行，以删除阴影并将表格样式更改为普通边框；

Sub RemoveShading()

    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        tbl.Shading.Texture = wdTextureNone
        tbl.Shading.ForegroundPatternColor = wdColorAutomatic
        tbl.Shading.BackgroundPatternColor = wdColorAutomatic
        tbl.Style = "Table Grid"
    Next

End Sub

注意：我在Word 2010中使用从标准工具栏构建的表进行了测试。

由OP编辑：

• 要创建此宏，请转到“文件”，“选项”，“自定义功能区”
• 选中右侧“自定义功能区”下“主选项卡”下的“开发人员”框。
• 点击“确定”
• 在开发人员功能区上，单击“宏”
• 命名一个新的宏，对其进行编辑，然后将其复制粘贴到弹出，保存和关闭的VBA窗口中的代码中。
• 再次点击宏，然后运行您喜欢的新宏

删除阴影：

右键单击表格中的任意位置，然后选择 Borders and Shading

切换至Shading标签

设置以下内容：

Fill到No Color Patterns- > Style到Clear Apply to到Table

点击 OK

删除所有应用于文本的格式：

右键单击表中的任意位置，然后选择Select->Table

按Ctrl+ Space清除所有格式