LowerHeadingLevel Property Example
This example formats the first table of contents in the active document to show entries formatted with the Heading 2, Heading 3, or Heading 4 styles.
If ActiveDocument.TablesOfContents.Count >= 1 Then
With ActiveDocument.TablesOfContents(1)
.UseHeadingStyles = True
.UpperHeadingLevel = 2
.LowerHeadingLevel = 4
End With
End If