Range.ListStyle (Word)

Retorna um valor que representa o estilo usado para formatar uma lista com marcadores ou lista numerada. Somente leitura.

Dim strListStyle As String
strListStyle = ActiveDocument.Range.ListStyle