作者：乔山办公网日期：
返回目录：word文档
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
第二步，设置格式。先设置好字体字号，再设置表源格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行知，选中“指定高度”，在“行高值是”中选择“固定值”，设定一道个适当值。
把要设置表格行高的行选中，然后在菜单“表格”里面选择“表格属性”，在表格属性里面选择“行高”选项卡，设置行高，然后在“行高值是”选择“固定值”设置才会生效。
Word中一次性调整表格的全部行、列宽度的方法：
（1）选中来需要调整的行、列或整张表格，单击“表格→表格属性”命令，打开“表格属性”对话框。
（2）选择源“行”选项卡，选中“指定行高”复选框，输入数值。
（3）选择“列”选项卡，选中“指定列宽”复选框，输入数值。单击“确zd定”按钮即可。
方法：
1、打开这个文档，点击窗zd口上面的菜单“工具”-》“宏”-》“Visoual Basic编辑器”；
2、在弹出的VBE窗口中点窗口上面的菜单“插入”-》“模块”；
3、在VBE窗口的右下侧窗口内粘贴上版如下代码：
Option Explicit
Sub 删除所有表格第8列()
Dim tbl As Table
Application.ScreenUpdating = False
For Each tbl In ActiveDocument.Tables
tbl.Columns(8).Delete
Next
Application.ScreenUpdating = True
End Sub
4、关闭VBE，返回文档窗口，点击窗口上面的菜单“工具”-》“宏”-》“宏”；
5、在弹出窗口中选择“删除所有表格第8列”，运权行一下就好了。