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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour