Objeto TextFrame (Word)
Representa el marco de texto en un objeto Shape. El objeto TextFrame contiene el texto en el marco de texto y las propiedades que controlan los márgenes y la orientación del marco de texto.
Utilice la propiedad TextFrame para devolver el objeto TextFrame de una forma. El TextRange propiedad devuelve un objeto Range que representa el intervalo de texto dentro del marco de texto especificado. En el ejemplo siguiente se agrega texto al marco de texto de la forma uno del documento activo.
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "My Text"
Nota
Algunas formas no admiten texto adjunto (líneas, formas libres, imágenes y objetos OLE, por ejemplo). Si trata de devolver o establecer las propiedades que controlen el texto de un marco de texto para estos objetos, se produce un error.
Utilice el HasText propiedad para determinar si el marco de texto contiene texto, tal como se muestra en el ejemplo siguiente.
For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then MsgBox .TextRange.Text
End With
Next
Marcos de texto pueden vincularse para que el texto fluya desde el marco de texto de una forma en el marco de texto de otra forma. Utilice el siguiente y anterior propiedades para vincular marcos de texto. En el ejemplo siguiente se crea un cuadro de texto (un rectángulo con un marco de texto) y se agrega texto. A continuación, se crea otro cuadro de texto y se vinculan los dos marcos de texto para que el texto fluya del primer marco de texto al 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
Utilice el ContainingRange propiedad para devolver un rango objeto que representa todo el contenido que fluye entre marcos de texto vinculados. En el ejemplo siguiente se comprueba la ortografía del texto en el TextBox 3 y cualquier otro texto vinculado a TextBox 3.
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
Referencia de modelos de objetos de Word
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.