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