HeadingFormat Property Example

This example creates a 5x5 table at the beginning of the active document and then adds the table heading format to the first table row.

Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(myRange, 5, 5)
myTable.Rows(1).HeadingFormat = True

This example determines whether the row that contains the insertion point is formatted as a table heading.

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