Office Word 2019 VBA含合并单元格插列异常，求实现EX2效果

我最近碰到个闹心的问题：想用VBA给Word 2019里带合并单元格的表格右侧插一列，本来盼着得到EX2那样的理想结果——新列完整加在右侧，原有合并单元格的结构丝毫不乱，结果跑了自己写的代码后，出现了EX3的异常状况：部分单元格直接被挤出表格，整个表格结构全乱了。

先给大家看看我最初写的代码：

Sub test()
 Dim p As Long
 Dim tb As Table
 Set tb = ActiveDocument.Tables(1)
 tb.Cell(1, 1).Select
 p = Selection.Information(wdMaximumNumberOfColumns)
 tb.Cell(1, p).Select
 Selection.InsertColumnsRight
End Sub

这里先明确几个状态：

• EX1：我操作的原始表格，包含多处合并单元格
• EX2：理想的最终效果，新列完美添加在表格最右侧，所有原有单元格的合并状态正常保留
• EX3：实际运行的错误结果，部分单元格被移出表格，排版完全混乱

后来我琢磨清楚问题根源了：原来的代码依赖选中单元格执行插入操作，而在带合并单元格的表格里，Selection.Information(wdMaximumNumberOfColumns)获取的是视觉上的列数，并非表格实际的列数；而且Selection.InsertColumnsRight会基于选中单元格的合并范围来插入，很容易触发结构错乱。

给大家分享个靠谱的解决方法，直接操作表格的列集合，不用依赖选中操作，完美适配合并单元格场景：

Sub InsertColumnRightCorrectly()
    Dim tb As Table
    Set tb = ActiveDocument.Tables(1)
    ' 直接在表格最右侧添加新列
    tb.Columns.Add BeforeColumn:=tb.Columns(tb.Columns.Count + 1)
End Sub

这个方法的核心是用tb.Columns.Add直接在表格末尾插入列，Word会自动处理合并单元格的适配，不会出现单元格移出的问题，完全能达到EX2的预期效果。

内容的提问来源于stack exchange，提问作者He Gang