vba - 删除包含一系列列的表

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