Document.Indexes (Word)

Retorna uma coleção Indexes que representa todos os índices no documento especificado. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Set MyRange = _ 
 ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, _ 
 End:=ActiveDocument.Content.End - 1) 
ActiveDocument.Indexes.Add Range:=MyRange, NumberOfColumns:=1, _ 
 HeadingSeparator:=False