Ler em inglês

Compartilhar via


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

Propriedades

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.