word里批量调整表格

1、打开这个文档，点击窗口上面的菜单“工具”-》“宏”-》“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列”，运行一下就好了。