Propriété Selection.TextRange (Publisher)

Renvoie un objet TextRange qui représente le texte attaché à une forme et les propriétés et méthodes de manipulation du texte.

Syntaxe

expression. Textrange

Expression Variable qui représente un objet Selection .

Exemple

L'exemple suivant ajoute du texte dans le cadre de texte de la forme 1 dans la composition active, puis met en forme le nouveau texte. Cet exemple suppose qu'il y a au moins une forme sur la première page de la composition active.

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

L'exemple suivant ajoute un rectangle à la composition active puis il y insère du texte.

Sub AddTextToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _ 
 Left:=72, Top:=72, Width:=250, Height:=140) 
 .TextFrame.TextRange.Text = "Here is some test text" 
 End With 
End Sub

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.