Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna uma coleção StoryRanges que representa todos os textos do documento especificado. Somente leitura.
Sintaxe
expression. StoryRanges
expressão Uma variável que representa um objeto documento .
Comentários
Para obter informações sobre como devolver um único membro de uma coleção, veja Devolver um objeto de uma coleção.
Exemplo
Este exemplo percorre a coleção StoryRanges para determinar se Wdprimaryfooterstorywdprimaryfooterstory é parte da coleção StoryRanges.
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType = wdEvenPagesFooterStory Then
MsgBox "Document includes an even page footer"
End If
Next aStory
Este exemplo adiciona texto ao texto de cabeçalho principal e exibe o texto.
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _
.Text = "Header text"
MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.