Range.NextStoryRange (Word)
Retorna um objeto Range referente à próxima história. Range de somente leitura.
A tabela a seguir descreve o intervalo retornado dependendo do tipo de texto.
Dim rngNextStoryRange As Range
Set rngNextStoryRange = ActiveDocument.Range.NextStoryRange