Propriedade Story.TextRange (Publisher)

Retorna um objeto TextRange que representa o texto anexado a uma forma e propriedades e métodos para manipulação do texto.

Sintaxe

expressão. Textrange

Expressão Uma variável que representa um objeto Story .

Exemplo

O exemplo a seguir adiciona texto no quadro de texto da forma um na publicação ativa e, em seguida, formata o novo texto. Este exemplo assume que existe pelo menos uma forma na primeira página da publicação ativa.

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

O exemplo a seguir adiciona um retângulo à publicação ativa e adiciona texto a ele.

Sub AddTextToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _ 
 Left:=72, Top:=72, Width:=250, Height:=140) 
 .TextFrame.TextRange.Text = "Here is some test text" 
 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.