Objet TextRange (PowerPoint)
Contient le texte attaché à une forme, ainsi que les propriétés et les méthodes nécessaires à la manipulation du texte.
Remarques
Les exemples suivants montrent comment effectuer les tâches suivantes :
renvoyer la plage de texte d'une forme quelconque que vous spécifiez ;
renvoyer une plage de texte de la sélection ;
renvoyer des caractères particuliers, mots, lignes, phrases ou paragraphes d'une plage de texte ;
rechercher et remplacer du texte dans une plage de texte ;
insérer du texte, la date et l'heure ou le numéro de diapositive dans une plage de texte ;
placer le curseur à l’endroit souhaité dans une plage de texte.
Exemple
Utilisez la propriété TextRangede l’objet TextFrame pour renvoyer un objet TextRange pour toute forme que vous spécifiez. Utilisez la propriété Textpour renvoyer la chaîne de texte dans l’objet TextRange . L’exemple suivant montre comment ajouter un rectangle à myDocument et définir le texte qu’il contient.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140) _
.TextFrame.TextRange.Text = "Here is some test text"
É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 :
ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange.Text = "Here is some test text"
ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange = "Here is some test text"
Utilisez la propriétéHasTextFrame pour déterminer si une forme possède un cadre de texte et la propriété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é. L'exemple suivant montre comment copier la sélection dans le Presse-papiers.
ActiveWindow.Selection.TextRange.Copy
Utilisez l’une des méthodes suivantes pour renvoyer une partie du texte d’un objet TextRange : Caractères, Lignes, Paragraphes, Exécutions, Phrases ou Mots.
Utilisez les méthodesFind et Replace pour rechercher et remplacer du texte dans une étendue de texte.
Utilisez l’une des méthodes suivantes pour insérer des caractères dans un objet TextRange : InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber ou InsertSymbol.
Méthodes
Propriétés
| Nom |
|---|
| ActionSettings |
| Application |
| BoundHeight |
| BoundLeft |
| BoundTop |
| BoundWidth |
| Count |
| Font |
| IndentLevel |
| LanguageID |
| Length |
| ParagraphFormat |
| Parent |
| Start |
| Text |
Voir aussi
Référence du modèle objet PowerPoint
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.