欢迎访问服务器技术网-www.fuwuqijishu.com

word 表格批量操作的问题?

软件 fuwuqijishu 2年前 (2022-10-01) 11次浏览 0个评论 扫描二维码

关于各位好:比如我有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列”,运行一下就好了。
友情提醒,代码执行后是不能通过“撤消”来返回操作前的内容的,所以你可以先复制一个副本文件用这段代码做测试,确定好用后再到需要的地方使用。

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2518.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900