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