Paragraph.ListNumberOriginal (Word)

Devuelve un valor de tipo Integer que representa el nivel de lista original de un párrafo.

ListNumberOriginal (Level)

Level: Especifica el nivel de lista.

Dim iLevel As Integer: iLevel =  
Dim lngListNumberOriginal As Long
lngListNumberOriginal = ActiveDocument.Lists(1).ListParagraphs(1).ListNumberOriginal(Level:=iLevel)