Objeto StoryRanges (Word)
Uma coleção de intervalo objetos que representam textos de um documento.
Use a propriedade StoryRanges para retornar a coleção StoryRanges. O exemplo a seguir remove a formatação do texto em todos os textos que não seja o texto do texto principal do documento ativo manual de caracteres.
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType <> wdMainTextStory Then aStory.Font.Reset
Next aStory
O método Add não está disponível para a coleção StoryRanges. O número de histórias da coleção StoryRanges é finito.
Use StoryRanges (Index), em que Index é uma constante WdStoryType , para retornar uma única história como um objeto Range . O exemplo seguinte 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
O exemplo a seguir copia o texto das notas de rodapé do documento ativo para um novo documento.
If ActiveDocument.Footnotes.Count >= 1 Then
ActiveDocument.StoryRanges(wdFootnotesStory).Copy
Documents.Add.Content.Paste
End If
Se você tentar retornar um texto não disponível no documento especificado, ocorrerá erro. O exemplo a seguir determina se um texto de nota de rodapé está ou não disponível no documento ativo.
On Error GoTo errhandler
Set MyRange = ActiveDocument.StoryRanges(wdFootnotesStory)
errhandler:
If Err = 5941 Then MsgBox "The footnotes story is not available."
Use a propriedade NextStoryRange efetuar um loop por todos os textos em um documento. O exemplo a seguir pesquisa cada história no documento ativo para o texto "Microsoft Word". Quando o texto é encontrado, ele é formatado como itálico.
For Each myStoryRange In ActiveDocument.StoryRanges
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
While myStoryRange.Find.Found
myStoryRange.Italic = True
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
Wend
While Not (myStoryRange.NextStoryRange Is Nothing)
Set myStoryRange = myStoryRange.NextStoryRange
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
While myStoryRange.Find.Found
myStoryRange.Italic = True
myStoryRange.Find.Execute _
FindText:="Microsoft Word", Forward:=True
Wend
Wend
Next myStoryRange
Nome |
---|
Item |
Nome |
---|
Aplicativo |
Count |
Creator |
Parent |
Referência do modelo de objeto do Word
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.