我有一个包含 137 个表格的文档,所有表格都采用了可怕的蓝色和 3D 风格,这占用了太多空间。
我怎样才能至少摆脱它们上面的阴影同时?
如果知道如何编辑它们,以摆脱多余的样式,并使它们成为可以自动调整内容的简单表格,那就太好了,但我知道这要求太多了。
答案1
您可以将此 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 窗口中复制粘贴代码,保存并关闭。
- 在 Word 中再次单击宏并运行您喜欢的新宏
答案2
删除阴影的方法:
右键单击表格中的任意位置并选择Borders and Shading
切换到Shading
标签
设置以下内容:
Fill
到No Color
Patterns
->Style
到Clear
Apply to
到Table
点击OK
要删除应用于文本的所有格式:
右键单击表格中的任意位置并选择Select
->Table
按Ctrl+Space清除所有格式