从WO Han老师那里讲授Office
RD长文档经常包含许多表格。有时我们必须删除这些表格。当然,我们可以选择一个一个地删除,但如果文件中有很多表格,或者表格位置不固定,这种一次删除一个的方法肯定是不可取的。(大卫亚设)。
今天,一位老师给了我一个代码,可以一次性删除文档中的所有表格。
实现方法
一位老师随意填写了有很多表格的文件。
表格形式不同,内容不同。
现在让我们一次性删除这张表格。
第一步:按[Alt] F11打开VBA窗口代码。
步骤2:在“VBA”窗口中输入以下代码:
Sub Removetables()
Dim oTable As Table
For Each oTable In Ac
OTable。Delete
Next oTable
End Sub
下图:
第三步:运行代码,无论是否有所有表单、格式、内容,都可以一次性删除。
注意事项
1:使用VBA储存文件:
保存时,将显示以下提示:
此时,请务必选择“否”,然后选择保存位置和保存类型。
带有VBA的文档是启用宏的文档* .必须另存为docm。否则,宏将丢失。上图:
2.如果计算机无法打开[Alt] F11 "VBA窗口,则可以从“文件”菜单中选择“选项”,然后从“Word选项”窗口的自定义功能区中选择“开发工具”
在“开发工具”菜单中,最左侧是“visual Basic”,如下图所示。