Index.HeadingSeparator (Word)
Devuelve o establece el texto entre grupos alfabéticos (elementos que comienzan con la misma letra) del índice. Posibles valores de retorno son wdHeadingSeparatorBlankLine - Una línea en blanco, wdHeadingSeparatorLetter - Una letra especificada, wdHeadingSeparatorLetterFull - Una letra mayúscula especificada, wdHeadingSeparatorLetterLow - Una letra minúscula especificada, wdHeadingSeparatorNone - Ningún separador.
If ActiveDocument.Indexes.Count >= 1 Then
With ActiveDocument.Indexes(1)
.HeadingSeparator = wdHeadingSeparatorLetter
.NumberOfColumns = 1
End With
End If