Vba 如何在表中以两种方式合并单元格？

我需要在Word文档中添加一个表：

它必须有三列

第1列和第3列应合并

在第二列中，应合并第1行。保持同一列的第2行未合并

像这样：

问题是我无法选择第2列的第1行，然后合并。 它不允许这样做，因为我已经合并了第1列和第3列。

例如：

Sub Demo()
Dim Tbl As Table
With ActiveDocument
  Set Tbl = .Tables.Add(.Range.Characters.Last, 1, 3)
  With Tbl
    .Borders.Enable = True
    .Cell(1, 2).Split 2, 1
    .Cell(2, 2).Split 1, 2
  End With
End With
End Sub

---

我从一张2 x 6的桌子开始，然后合并

Sub makeTable()
   With ActiveDocument.Tables.Add(Selection.Range, 2, 6)
      .Cell(1, 5).Merge MergeTo:=.Cell(2, 6)
      .Cell(1, 3).Merge MergeTo:=.Cell(1, 4)
      .Cell(1, 1).Merge MergeTo:=.Cell(2, 2)
      .Borders.Enable = True
   End With
End Sub