Objeto Story (Publicador)
Representa o texto em um quadro de texto desvinculada, fluxo de texto entre quadros de texto vinculada ou texto em uma célula de tabela. O objeto Story é um membro dos objetos TextFrame e TextRange e da coleção Stories .
Use a propriedade Story do objeto TextFrame ou TextRange para retornar o objeto Story em um quadro de texto ou intervalo de texto.
Use Stories (index), em que o índice é o número da história, para retornar um objeto Story individual.
Este exemplo retorna a história no intervalo de texto selecionado e, se estiver em um quadro de texto, insere o texto no intervalo de texto.
Sub AddTextToStory()
With Selection.TextRange.Story
If .HasTextFrame Then .TextRange _
.InsertAfter NewText:=vbLf & "This is a test."
End With
End Sub
Este exemplo determina se a primeira história na publicação ativa tem um quadro de texto e, se isso acontecer, formata os parágrafos da história com um recuo de meia polegada na primeira linha e um espaçamento de seis pontos antes de cada parágrafo.
Sub StoryParagraphFirstLineIndent()
With ActiveDocument.Stories(1)
If .HasTextFrame Then
With .TextFrame.TextRange.ParagraphFormat
.FirstLineIndent = InchesToPoints(0.5)
.SpaceBefore = 6
End With
End If
End With
End Sub
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.