如何從Word表格中刪除「額外的」不需要的列？

Question

我的一些Word文檔表有4列，有些還有更多。無論如何，每當我有超過4列時，我需要刪除第4行以外的所有列。

（即，如果我有6列，我需要刪除列＃5 &＃6，留給我的第一列）

誰能提供VBA宏，將刪除超出了所有列的建議第四列？

如果列＃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