Range.StoryType (Word)
Retorna o tipo de texto do intervalo, seleção ou indicador especificado. Somente leitura WdStoryType. Aqui você pode encontrar os valores possíveis para
Dim wstStoryType As WdStoryType
wstStoryType = ActiveDocument.Range.StoryType