Range.ListParagraphs (Word)

Returns a ListParagraphs collection that represents all the numbered paragraphs in the range.

For information about returning a single member of a collection, see Returning an object from a collection.

Dim lpsListParagraphs As ListParagraphs
Set lpsListParagraphs = ActiveDocument.Range.ListParagraphs