关于各位好:比如我有100个表格。每个表格的样式一样的,
比如说都是10列,我想删除第8列,
也就是说100表格都是删除第8列,如果一个一个表格的删除,这样太慢了,
我想是不是有一种批理操作方式,就以把100个表格的第8列删除,请问这样如何操作。
、、
希望懂行的指点下。谢了。上网快乐。的问题
这个问题只有用宏来解决了。
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列”,运行一下就好了。
友情提醒,代码执行后是不能通过“撤消”来返回操作前的内容的,所以你可以先复制一个副本文件用这段代码做测试,确定好用后再到需要的地方使用。