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.

Comentários

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

Métodos

Nome
BreakForwardLink
DeleteText
ValidLinkTarget

Propriedades

Nome
Aplicativo
AutoSize
Coluna
ContainingRange
Creator
HasText
HorizontalAnchor
MarginBottom
MarginLeft
MarginRight
MarginTop
Next
NoTextRotation
Orientation
Overflowing
Responsável
PathFormat
Previous
TextRange
ThreeD
VerticalAnchor
WarpFormat
WordWrap

Confira também

Referência do modelo de objeto do Word

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.