Range.StoryType (Word)

Returns the story type for the specified range, selection, or bookmark. Here you can find possible values for WdStoryType.

Dim wstStoryType As WdStoryType
wstStoryType = ActiveDocument.Range.StoryType