Objet TextRange (Publisher)

Article
04/07/2023

Contient le texte lié à une forme, en plus des propriétés et méthodes de manipulation du texte.

Remarques

Utilisez la propriété TextRange de l’objet TextFrame pour renvoyer un objet TextRange pour toute forme que vous spécifiez. Utilisez la propriété Text pour renvoyer la chaîne de texte dans l'objet TextRange.

Utilisez la propriété ShapeRange.HasTextFrame pour déterminer si une forme a un cadre de texte et utilisez la propriété TextFrame.HasText pour déterminer si le cadre de texte contient du texte.

Utilisez la propriété TextRange de l’objet Selection pour renvoyer le texte actuellement sélectionné.

Utilisez une des méthodes suivantes pour renvoyer une partie du texte d'un objet TextRange: caractères, des lignes, des paragraphes ou des mots.

Utilisez les méthodes suivantes pour insérer des caractères dans un objet TextRange: InsertAfter, InsertBefore, InsertDateTime, InsertPageNumber ou InsertSymbol.

Exemple

L'exemple suivant ajoute un rectangle à la composition active et définit le texte qu'elle contient.

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

Étant donné que la propriété Text est la propriété par défaut de l'objet TextRange, les deux instructions suivantes sont les mêmes :

ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
    .TextRange.text = "Here is some test text" 
ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
    .TextRange = "Here is some test text"

L'exemple suivant montre comment copier la sélection dans le Presse-papiers.

Sub CopyAndPasteText() 
    With ActiveDocument 
        .Selection.TextRange.Copy 
        .Pages(1).Shapes(1).TextFrame.TextRange.Paste 
    End With 
End Sub

L'exemple suivant met en forme le second mot dans la première forme sur la première page de la composition active. Cet exemple fonctionne, la forme spécifiée doit contenir du texte.

Sub FormatWords() 
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
            .TextRange.Words(2).Font 
        .Bold = msoTrue 
        .Size = 15 
        .Name = "Text Name" 
    End With 
End Sub

Cet exemple montre comment insérer une nouvelle ligne avec le texte après tout texte existant dans la première forme sur la première page de la composition active.

Sub InsertNewText() 
    Dim intCount As Integer 
    With ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
            .TextRange 
        For intCount = 1 To 3 
            .InsertAfter vbLf  "This is a test." 
        Next intCount 
    End With 
End Sub

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Publisher

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.

Partager via