批量删除表格，出错，望大神指点江山

ttkx001

想批量删除当前文档中的所有表格，使用了下面的代码，出错，望大神指点江山，十分感谢


Sub delet1()

    Dim n, i As Integer
    n = ActiveDocument.Tables.Count
    For i = 1 To n
    ActiveDocument.Tables(i).Delete
    Next
    MsgBox "ok"

End Sub

dafanshu1

当然了，例如有2个表格，当删除第1个表格后，循环变成ActiveDocument.Tables(2)就不复存在了。
应当使用for each循环。

jiminyanyan

1. Sub delet1()
   
2. 
   
3.     Dim n, i As Integer
   
4.     n = ActiveDocument.Tables.Count
   
5.     For i = n To 1 Step -1
   
6.     ActiveDocument.Tables(i).Delete
   
7.     Next
   
8.     MsgBox "ok"
   
9. 
   
10. End Sub
    

复制代码

ttkx001

多谢上面的两位，

weiyingde

ttkx001 发表于 2017-3-16 12:40
多谢上面的两位，

倒序删除如何？
for i =n to 1 step -1

weiyingde

惭愧，发帖后才发现jiminyanyan 已经回答啦。