删除包含一系列列的表

Question

我要浏览几百个Word文档，每个文档包含几十个表。我需要删除包含三列以上的所有表。需要从文档中删除整个表。我不能简单地删除文档中的所有表（我已经拥有的宏），因为这些文档包含表格格式的项目符号信息。

或者，用于将具有三列或更少列的表转换为文本的宏也可以完成工作。

Answer 1

想出来。

    Sub RemoveDataTables()
    For Each Table In ActiveDocument.Tables
    If Table.Columns.Count > 3 Then
    Table.Delete
    End If
    Next
    End Sub