如何用vba设置word表格的在各页的顶端以标题行的形式重复出现？

在word中可以设置表格的标题行在多个页面重复出现。

在vba中可以通过设置Row对象或者Rows对象的HeadingFormat属性为True来重复表格的标题行。

但是不管是设置哪一行的Row对象或者哪几行的Rows对象的HeadingFormat属性为True，都只会使得表格的第一行作为重复的标题行，其它行不会产生效果。

比如如下的设置标题行重复的代码效果都是一样的：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
        Set oT = .Tables(1)
            With oT
                .Rows.HeadingFormat = True
                .Rows(1).HeadingFormat = True
                .Rows(4).HeadingFormat = True
            End With
    End With
End Sub