一次删除文档中所有表格

摘要

WORD长文档中,经常含有很多表格。有时候,我们需要把这些表格删除。当然,我们可以一个一个的选中再删除,但,如果你的文档中的表格很多,或是表格位置不固定,这种逐一删除的方法显然不可取。
今天给一段代码

WORD长文档中,经常含有很多表格。有时候,我们需要把这些表格删除。当然,我们可以一个一个的选中再删除,但,如果你的文档中的表格很多,或是表格位置不固定,这种逐一删除的方法显然不可取。
今天给一段代码,能一次删除文档中所有表格。
实现方法
随便建一个有很多表格的文档:
一次删除文档中所有表格
表格的格式不一、内容不一。
现在我们来一次删除这些表格。
第一步:按[Alt]+F11,打开VBA窗口代码;
第二步:在VBA窗口中输入以下代码:
Sub Removetables()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub
如下图:
一次删除文档中所有表格
第三步:运行代码,所有的表格,不管格式如何、有无内容,都可一次删除,如下:
一次删除文档中所有表格
注意事项
1:带有VBA的文档保存:
保存时,会弹出如下提示:
一次删除文档中所有表格
此时,一定选择“否”,然后,选择保存位置与保存类型。
带有VBA的文档一定要保存为“启用宏的文档”*.docm“,否则宏会丢失。如上图:
一次删除文档中所有表格
2.如果你的电脑中按”[Alt]+F11“打不开VBA 窗口,则可以在”文件“菜单中选择”选项“,在”Word选项”窗口中的“自定义功能区”中勾选“开发工具”,如下图:
一次删除文档中所有表格
在“开发工具”菜单中,最左侧即是“visual Basic”,如下图:
一次删除文档中所有表格

相关文章
shenlan
  • 本文由 发表于 2022年 12月 15日 21:05:06
  • 转载请务必保留本文链接:https://www.shenlanxitong.com/6306.html

发表评论