Range.ListStyle (Word)

Devuelve una Variant que representa el estilo utilizado para dar formato a una lista con viñetas o lista numerada.

Dim strListStyle As String
strListStyle = ActiveDocument.Range.ListStyle