Range.NextStoryRange (Word)

Returns a Range object that refers to the next story.

The following table describes the range returned depending on the type of story.

Dim rngNextStoryRange As Range
Set rngNextStoryRange = ActiveDocument.Range.NextStoryRange