如何使用混合单元格宽度访问表集合中的各个列

Question

我有一个5列的表格。 只有第一行有4列，第一行与第一列合并。 我想删除每一行的第四列。但是由于混合的单元格宽度，我收到运行时错误5992。

查看了此解决方案： How to access columns in a table that have different cell widths from 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