可以参考下面方法处理:
1、首先单击“文件”—“选项”;
2、在弹出的“选项”面板上“自定义功能区”面板的右边一栏勾线“开发工具”;
3、单击“开发工具”,在弹出的面板上单击“visualbasic”;
4、调出代码窗口,输入批量修改表格代码;
5、单击“开发工具”—“宏”;
6、在弹出的宏命令选择框中选择“批量修改表格”执行“宏命令;
7、然后选中所有表格;
8、单击“设计”,选择合适的效果;
9、最后即可完成。
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
第二步,设置格式。先设置好字体字号,再设置表格属性:右键——表格属性(或者点菜单栏的表格——表格属性)——行,选中“指定高度”,在“行高值是”中选择“固定值”,设定一个适当值。
用样式改。SHIFT+F1,然后点到样式和格式,里面就有一个网格型的表格样式,有表格就有这个样式了,或者有很多个,主要看你文档里面的表格是不是一样了,,,,点样式右边的小三角,更改样式,所有的对应这个样式的表格就一次全改过来了
得用宏。同时按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运行此宏,完成。