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

Question

我的一些Word doc表有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