Objet TextFrame (Word)
Représente le cadre de texte d'un objet Shape. Cet objet TextFrame contient le texte du cadre de texte et les propriétés qui définissent les marges et l’orientation du cadre de texte.
Pour renvoyer l'objet TextFrame d'une forme, utilisez la propriété TextFrame. La propriété TextRange renvoie un objet Range qui représente la plage de texte à l'intérieur du cadre de texte spécifié. L'exemple suivant montre comment ajouter du texte au cadre de texte de la première forme du document actif.
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "My Text"
Notes
Certaines formes ne prennent pas en charge le texte attaché (lignes, formes libres, images et objets OLE, par exemple). Si vous tentez de renvoyer ou de définir des propriétés qui contrôlent le texte d'un cadre de texte avec ces types de formes, une erreur se produit.
Pour déterminer si le cadre de texte contient du texte, utilisez la propriété HasText, comme indiqué dans l'exemple suivant.
For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then MsgBox .TextRange.Text
End With
Next
Vous pouvez lier ensemble des cadres de texte de façon à ce que le texte d'un cadre de texte d'une forme s'enchaîne à celui d'une autre forme. Pour lier des cadres de texte, utilisez les propriétés Next et Previous. L'exemple suivant montre comment créer une zone de texte (un rectangle avec un cadre de texte) et y insérer du texte. Il montre également comment créer une autre zone de texte et lier les deux cadres de texte de sorte que le texte du premier cadre de texte s'enchaîne au second.
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
Pour renvoyer un objet Range qui représente la totalité de l'article commun à des cadres de texte liés, utilisez la propriété ContainingRange. L'exemple suivant montre comment vérifier l'orthographe du texte qui se trouve dans TextBox 3 ainsi que de tout autre texte lié à TextBox 3.
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
Référence du modèle objet Word
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.