Как удалить «дополнительные» ненужные столбцы из таблицы 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