Classe StoryRanges (Word VBA)

Uma coleção de objetos Range que representam matérias em um documento. Para usar uma variável de classe StoryRanges, ela primeiro precisa ser instanciada por exemplo

Dim srs as StoryRanges
Set srs = ActiveDocument.StoryRanges

Count

Retorna um Long que representa o número de intervalos de texto na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.StoryRanges.Count

Item

Retorna um único texto de um intervalo ou seleção como um objeto Range .

Item (Index)

Index: O tipo de texto especificado.

Dim rngStoryRange As Range
Set rngStoryRange = ActiveDocument.StoryRanges(Index:=1)