Selection.Sections (Word)
Returns a Sections collection that represents the sections in the specified selection.
For information about returning a single member of a collection, see Returning an object from a collection.
Dim sctsSections As Sections
Set sctsSections = Selection.Sections