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...全部
这个问题只有用宏来解决了。
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列”,运行一下就好了。
友情提醒,代码执行后是不能通过“撤消”来返回操作前的内容的,所以你可以先复制一个副本文件用这段代码做测试,确定好用后再到需要的地方使用。收起