Propriedade TextFrame.TextRange (Word)
Retorna um objeto Range que representa o texto no quadro de texto especificado.
Sintaxe
expressão. Textrange
Expressão Uma expressão que retorna um objeto TextFrame .
Exemplo
Este exemplo adiciona uma caixa de texto ao documento ativo e, em seguida, adiciona texto à caixa de texto.
Set myTBox = ActiveDocument.Shapes _
.AddTextBox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
myTBox.TextFrame.TextRange = "Test Box"
Este exemplo adiciona texto a TextBox 1 no documento ativo.
ActiveDocument.Shapes("TextBox 1").TextFrame.TextRange _
.InsertAfter("New Text")
Este exemplo retorna o texto de TextBox 1 do documento ativo e o exibe em uma caixa de mensagem.
MsgBox ActiveDocument.Shapes("TextBox 1").TextFrame.TextRange.Text
Confira também
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.