关于Word中表格合并，为何单数列不能合并，双数列可以合并

spano

下面是根据网上一个代码修改的，目的是合并同一列挨着的两格，经过测试偶数列可以执行，奇数列不行，不知道原因是什么？
Sub mergeCell()
Dim Tbl As Table
Set Tbl = ActiveDocument.Tables(1)   '在文档开头插入一个两行四列的表格
With Tbl
    With .Borders   '设置表格边框线为单实线
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleSingle
    End With
    ActiveDocument.Range(.Cell(3, 2).Range.Start, .Cell(4, 2).Range.End).Cells.Merge    '合并第一行前两个格
End With
End Sub

当把2改为4,6时能合并。但改为1,3,5就提示错误。

背后的原因是什么？

duquancai

背后的原因就是有合并单元格。

spano

duquancai 发表于 2018-7-29 20:16
背后的原因就是有合并单元格。

一开始我也这么认为的，但是对新创建的文件也是这样的。
而且我连续用2,4,6测试都没问题，但是只要用1,3,5就不行，怀疑是表格对奇数列有限制？

daibao88

不要连续测试，合并后，单元格后数发生变化了

spano

daibao88 发表于 2018-7-29 21:43
不要连续测试，合并后，单元格后数发生变化了

这个倒没有体现出来，偶数可以连续合并。奇数一个都合并不了。