如何从 Word 表中删除“其他”不需要的列？

【问题标题】：How do I remove 'additional' unwanted columns from a Word table?如何从 Word 表中删除“其他”不需要的列？
【发布时间】：2020-07-05 22:43:24
【问题描述】：

我的一些 Word 文档表有 4 列，有些则更多。无论如何，每当我有超过 4 列时，我都需要删除第 4 行以外的所有列。

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

谁能提供一个 VBA 宏的建议，该宏将删除第 4 列以外的所有列？

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

【问题讨论】：

标签： vba ms-word

【解决方案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

【讨论】：

谢谢 Remou，看起来不错。我在家里做了一个小测试，看起来不错。明天我会在工作中运行它，我们会看看它是怎么回事......