WORD中如何批量修改表格的格式：

Question

请高手指教：如何把200个普通表格批量改成 三线表，并对表格里单元格中的文字居中，同时不改变文档中其他部分的文字。注意，表格与表格之间有很多文字的。非常感谢

Answer 1

可以参考下面方法处理：

1、首先单击“文件”—“选项”；

2、在弹出的“选项”面板上“自定义功能区”面板的右边一栏勾线“开发工具”；

3、单击“开发工具”，在弹出的面板上单击“visualbasic”；

4、调出代码窗口，输入批量修改表格代码；

5、单击“开发工具”—“宏”；

6、在弹出的宏命令选择框中选择“批量修改表格”执行“宏命令；

7、然后选中所有表格；

8、单击“设计”，选择合适的效果；

9、最后即可完成。

Answer 2

WORD中批量修改表格的格式：
第一步，先用宏将所有表格选中：
Sub 宏1()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。本回答被网友采纳

Answer 3

用样式改。SHIFT+F1，然后点到样式和格式，里面就有一个网格型的表格样式，有表格就有这个样式了，或者有很多个，主要看你文档里面的表格是不是一样了，，，，点样式右边的小三角，更改样式，所有的对应这个样式的表格就一次全改过来了本回答被网友采纳

Answer 4

得用宏。同时按alt和f11，进入宏界面，点菜单的插入，模块，粘贴以下代码：
sub
test()
for
i
=
1
to
thisdocument.hyperlinks.count
thisdocument.hyperlinks(1).address
=
replace(thisdocument.hyperlinks(1).address,
"123456",
"abcdef")
next
i
end
sub
直接按f5运行此宏，完成。