word文档中有60个表格，如何批量删除编号为偶数的表格

wjh9239

word文档中有40个表格，如何批量删除编号为偶数的表格？请高手指点，不胜感激。从前往后默认编号为1、2、3、4、。。。。。。。一直到40，如何删除2、4、6、。。。。。40这些表格？

changhong8

你不是想删除偶数表格，而是把偶数页都删除了吧，表格上面的东西不在表格范围的

changhong8

这是删除偶数整页内容的：

changhong8

删除偶数表格的不知道什么原因未通过系统审核，被删了

gbgbxgb

。。。。。。。。。。。。。。。。。

1. Sub kklk()
   
2.     Dim theTablesCount&, i&
   
3.     '
   
4.     With ThisDocument
   
5.         theTablesCount = .Tables.Count
   
6.         For i = theTablesCount To 2 Step -1
   
7.             If i Mod 2 = 0 Then .Tables(i).Delete
   
8.         Next i
   
9.     End With
   
10. End Sub

复制代码

daibao88

偶数页都删除吧，表述都有问题。

wjh9239

daibao88 发表于 2019-8-11 21:10
偶数页都删除吧，表述都有问题。

共计40个表格，就是删除编号为2、4、6、。。。40的表格

daibao88

Sub test()
    Application.ScreenUpdating = False
    Dim tablecount As Integer, i As Integer
    tablecount = ActiveDocument.Tables.Count
    tablecount = tablecount - (tablecount Mod 2)
    For i = tablecount To 2 Step -2
        ActiveDocument.Tables(i).Delete
    Next
    Application.ScreenUpdating = True
End Sub

wjh9239

gbgbxgb 发表于 2019-8-11 20:56
。。。。。。。。。。。。。。。。。

谢谢您，很好用

wdpfox

感谢分享，论坛因你而精彩！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！