Objeto TextFrame (Word)
Representa o quadro de texto em um objeto Shape. Objeto TextFrame contém o texto no quadro de texto e as propriedades que controlam as margens e a orientação do quadro do texto.
Use a propriedade TextFrame para retornar o objeto TextFrame para uma forma. O TextRange propriedade retorna um objeto Range que representa o intervalo de texto dentro do quadro de texto especificado. O exemplo a seguir adiciona texto ao quadro de texto da forma um do documento ativo.
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "My Text"
Observação
Algumas formas não dão suporte a texto anexado (linhas, formas livres, imagens e objetos OLE, por exemplo). Se você tentar retornar ou definir propriedades que controlam texto em um quadro de texto para esses objetos, ocorrerá um erro.
Use a HasText propriedade para determinar se o quadro de texto contém texto, conforme mostrado no exemplo a seguir.
For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then MsgBox .TextRange.Text
End With
Next
Quadros de texto podem ser vinculados juntos, para que o texto flui do quadro de texto de uma forma para o quadro de texto, de outra forma. Usar o próximo e anterior propriedades para vincular quadros de texto. O exemplo a seguir cria uma caixa de texto (um retângulo com um quadro de texto) e adiciona algum texto a ela. Ele cria outra caixa de texto e vincula os dois quadros de texto para que o texto flui do primeiro quadro de texto para o segundo.
Set myTB1 = ActiveDocument.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 72, 72, 72, 36)
myTB1.TextFrame.TextRange = _
"This is some text. This is some more text."
Set myTB2 = ActiveDocument.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 72, 144, 72, 36)
myTB1.TextFrame.Next = myTB2.TextFrame
Use o ContainingRange propriedade para retornar um intervalo objeto que representa o texto inteiro que flui entre quadros de texto vinculada. O exemplo a seguir verifica a ortografia do texto de TextBox 3 e de qualquer outro texto que está vinculado à caixa de texto 3.
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
Referência do modelo de objeto do Word
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.