如何快速地消除表格

hwwh

请问在文字和表格混排的文章中，如何快速地消除表格及表格中的文字，有没有好方法啊。

jhjdcg

选定表格，按退格键，就是回车右上角的那个 ←

liujy

打开附件,同时按下Alt+F8这两个键打开宏对话框，选择lljj，单击运行(R)执行下面这段代码，即可实现删除所有的表格。

Sub lljj()
Dim i As Integer
For i = 1 To ThisDocument.Tables.Count
ThisDocument.Tables(1).Delete
Next i
End Sub

VTrJxyui.rar (6.8 KB, 下载次数: 9)

2007-4-25 15:06 上传

点击文件名下载附件
如何快速地消除表格

cxz008

QUOTE:

以下是引用liujy在2007-4-25 15:06:11的发言：

打开附件,同时按下Alt+F8这两个键打开宏对话框，选择lljj，单击运行(R)执行下面这段代码，即可实现删除所有的表格。

Sub lljj()
Dim i As Integer
For i = 1 To ThisDocument.Tables.Count
ThisDocument.Tables(1).Delete
Next i
End Sub

    Sub lljj()
        Dim i As Integer
        For i = 1 To ActiveDocument.Tables.Count
        ActiveDocument.Tables(1).Delete
        Next i
    End Sub

linqiang0816

以上的宏又什么区别吗？