在 Word VBA 的标题中合并表格的单元格答案

【问题标题】：Merge cells of tables in the header in Word VBA在 Word VBA 的标题中合并表格的单元格
【发布时间】：2021-03-31 14:24:08
【问题描述】：

我想在我的 Word 文档标题中合并第二个表格的两个单元格。我在下面创建了脚本，但它有一个运行时错误：'5491'。请求的集合成员不存在。

错误发生在这一行“With xTable(2)”

Sub mergercells()
    
    Set xTable = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables

 With xTable(2)
 .Cell(Row:=3, Column:=2).Merge _
 MergeTo:=.Cell(Row:=3, Column:=1)
 .Borders.Enable = False
 End With

End Sub

谢谢，

【问题讨论】：

错误在哪一行？
这一行有错误“With xTable(2)”。我已经更新了这个问题。感谢您了解这一点。
文档的该部分没有第二个表格。尝试添加 Debug.Print xTable.Count 并查看输出是什么（在 VB 编辑器的即时窗格中）
感谢您的 cmets。奇怪的是它显示 0，因为标题中有两个表。
每个页面都有完全相同的标题吗？也可能相关：office-forums.com/threads/…

标签： vba merge ms-word

【解决方案1】：

你只需要：

Sub MergeCells()
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(2)
  .Cell(Row:=3, Column:=2).Merge MergeTo:=.Cell(Row:=3, Column:=1)
  .Borders.Enable = False
End With
End Sub

【讨论】：