HeadingSeparator Property Example

This example formats the first index for the active document in a single column, with the appropriate letter preceding each alphabetic group.

If ActiveDocument.Indexes.Count >= 1 Then
    With ActiveDocument.Indexes(1)
        .HeadingSeparator = wdHeadingSeparatorLetter
        .NumberOfColumns = 1
    End With
End If