Lire en anglais

Partager via


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.

Remarques

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

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

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.