Range.ListStyle (Word)

Returns a Variant that represents the style used to format a bulleted list or numbered list.

Dim strListStyle As String
strListStyle = ActiveDocument.Range.ListStyle