Propriedade TextRange.Story (Publisher)
Retorna um objeto Story que representa as propriedades da história em um intervalo de texto.
Sintaxe
expressão. História
Expressão Uma variável que representa um objeto TextRange .
Exemplo
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 If
End With
End Sub
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.