HeadingFormat 属性

       

如果该属性值为 True,则将指定一行或数行的格式设置为表格标题。当表格不止一页时,可将多行的格式重复设置为表格标题。可以是 TrueFalsewdUndefinedLong 类型,可读写。

示例

本示例在活动文档的开始处创建一个 5x5 表格,然后将表格第一行的格式设置为表格标题。

Dim rngTemp As Range
Dim tableNew As Table

Set rngTemp = ActiveDocument.Range(0, 0)
Set tableNewe = ActiveDocument.Tables.Add(rngTemp, 5, 5)

tableNew.Rows(1).HeadingFormat = True

本示例判定是否将插入点所在行的格式设置为表格标题。

If Selection.Information(wdWithInTable) = True Then 
    If Selection.Rows(1).HeadingFormat = True Then _
        MsgBox "The current row is a table heading"
Else
    MsgBox "The insertion point is not in a table."
End If