Range.Sections (Word)

Returns a Sections collection that represents the sections in the specified range.

For information about returning a single member of a collection, see Returning a Single Object from a Collection.

Dim sctsSections As Sections
Set sctsSections = ActiveDocument.Range.Sections