Range.SetListLevel (Word)

Define o nível da lista para um ou mais itens em uma lista numerada.

SetListLevel (Level)

Level: Um número que indica o novo nível da lista.

Dim iLevel As Integer: iLevel =  
ActiveDocument.Range.SetListLevel Level:=iLevel