word文档如何快速删除表格内容(WORD一次删除文档中所有表格)

转自韩老师讲Office

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

今天韩老师给一段代码,能一次删除文档中所有表格。

实现方法

韩老师随便建一个有很多表格的文档:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(1)

表格的格式不一、内容不一。

现在我们来一次删除这些表格。

第一步:按[Alt] F11,打开VBA窗口代码;

第二步:在VBA窗口中输入以下代码:

Sub Removetables()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Delete

Next oTable

End Sub

如下图:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(2)

第三步:运行代码,所有的表格,不管格式如何、有无内容,都可一次删除,如下:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(3)

1:带有VBA的文档保存:

保存时,会弹出如下提示:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(4)

此时,一定选择“否”,然后,选择保存位置与保存类型。

带有VBA的文档一定要保存为“启用宏的文档”*.docm“,否则宏会丢失。如上图:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(5)

2.如果你的电脑中按”[Alt] F11“打不开VBA 窗口,则可以在”文件“菜单中选择”选项“,在"Word选项”窗口中的“自定义功能区”中勾选“开发工具”,如下图:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(6)

在“开发工具”菜单中,最左侧即是“visual Basic",如下图:

word文档如何快速删除表格内容(WORD一次删除文档中所有表格)(7)

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页