如果用VBA填充表,则不会在以下页上自动重复标题行

dim table as word.table
set table=<获取表>
调暗数据()
数据=数组(“a”、“b”、“c”、“d”、“e”)

将r作为word.row,i,j作为long
对于j=1至100
设置r=table.rows.add()。
对于i=0到ubound(数据)
r.cells.item(i+1).range.text=数据(i)
接下来
接下来
数据行看起来很好,但标题行不会在以下页面上重复,尽管进行了设置。




在网上找到的解决方案如下:


word 2013&2016“table_ repeat header row__”not working_“it support guides.:select the table(or place the cursor into aNY cellon the first page of the table(这是我自己的查找),then ontable tools->layout(布局)bribbon pane,deselect and reseselect(取消选择并重新选择)repeat header rows(重复标题行)。


这是可行的,但我需要以编程的方式完成这项工作。

how to enable'repeat header rows'in a word table from vba?>>:


wd.activedocument.tables(1).rows(1).select
wd.selection.rows.headingFormat=真
这没有效果。






在VBA脚本中(从Excel通过Word.Application如果这很重要的话),我会添加许多数据行,如下所示,这样表就比页面大:

Dim table as Word.table
Set table = <get the table>
Dim data()
data = Array("a", "b", "c", "d", "e")

Dim r As Word.row, i, j As Long
For j = 1 to 100
    Set r = table.Rows.Add()
    For i = 0 To UBound(data)
        r.Cells.Item(i + 1).Range.Text = data(i)
    Next
Next


数据行看起来很好,但是头行不会在后面的页面上重复,尽管进行了设置。



在网上找到的解决方案如下:


Word 2013 & 2016 – Table ‘repeat header row’ not working – IT Support Guides:选择表格(或将光标放在任何单元格中)在桌子的第一页(这是我自己的发现),然后打开Table Tools->Layout功能区窗格,取消选择并重新选择Repeat Header Rows.

这是可行的,但我需要通过编程来实现。
How to enable 'Repeat Header Rows' in a Word Table from VBA?:

wd.ActiveDocument.Tables(1).Rows(1).Select
wd.Selection.Rows.HeadingFormat = True


这没有效果。