Range.SetListLevel (Word)

Establece el nivel de lista de uno o varios elementos de una lista numerada.

SetListLevel (Level)

Level: Número que indica el nuevo nivel de lista.

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