如何删除“额外的” Word 表格中不需要的列？

Question

我的一些 Word 文档表格有 4 列，有些则更多。无论如何，只要我有超过 4 列，我就需要删除第 4 行之外的所有列。

（即，如果我有 6 列，我需要删除#5 和#6 列，留下第一列）

任何人都可以提供一个关于 VBA 宏的建议，该宏将删除第 4 列之外的所有列吗？

如果是第 5 列，则删除第 5 列，循环。如何将其放入 VBA 代码中？

Answer 1

怎么样：

Dim tbl As Table

For Each tbl In ActiveDocument.Tables
''First column is 1, not 0, ditto rows.
    If tbl.Columns.Count > 4 Then
        For i = tbl.Columns.Count To 5 Step -1
            tbl.Columns(i).Delete
        Next
    End If
Next