Compartilhar via


Objeto StoryRanges (Word)

Uma coleção de intervalo objetos que representam textos de um documento.

Comentários

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

Métodos

Nome
Item

Propriedades

Nome
Aplicativo
Count
Creator
Parent

Confira também

Referência do modelo de objeto do Word

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.