VBA 字分配表标题行答案

【问题标题】：VBA Word Assign Table Header rowsVBA 字分配表标题行
【发布时间】：2019-05-23 21:49:59
【问题描述】：

我有一个从 Excel 粘贴（粘贴和格式化）的表格。现在我需要第一行和第二行显示在每一页的顶部。问题是我无法使用 VBA 代码使其工作，但手动工作。

我浏览了互联网、MSDN 和 VBA 中的对象库，但我似乎可以找到如何使用代码，就像手动完成一样。

Sub test()
    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    tbl.Rows(1).HeadingFormat = True
End Sub

运行时错误：5991 无法访问选择中的特定行，因为包含垂直合并单元格的表格

但是如果我手动执行，进入表格属性对话框，选项卡行，然后选择第 1 行，然后勾选选项在每一页上重复第一行，就可以了。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

由于您在前两行中垂直合并了单元格，因此您需要在设置 HeadingFormat 之前选择行

ActiveDocument.Tables(1).Cell(1, 1).Select
With Selection
  .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  .Expand wdRow
  .Rows.HeadingFormat = True
End With

【讨论】：