Как получить доступ к отдельным столбцам в коллекции таблиц со смешанной шириной ячейки

Question

У меня есть таблица с 5 столбцами. Только первая строка имеет 4 столбца, первый столбец первого ряда объединяется. Я хочу удалить 4-й столбец каждой строки. Но из-за смешанной ширины ячеек я получаю ошибку времени выполнения 5992.

посмотрел на это решение: Как получить доступ к столбцам в таблице, которые имеют ширину ячейки, отличную от MS Word

Код не для VBA

Answer 1

Попробуйте что-нибудь на основе:

Sub Demo()
Application.ScreenUpdating = False
Dim r As Long
With ActiveDocument.Tables(1)
  For r = 2 To .Rows.Count
    With .Rows(r)
      If .Cells.Count > 3 Then .Cells(4).Delete
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub