Classe TextRange (PowerPoint VBA)

Contient le texte attaché à une forme, ainsi que les propriétés et les méthodes nécessaires à la manipulation du texte.

Les procédures principales de la classe TextRange sont Copy, Delete et Select

Set

Pour utiliser une variable de classe TextRange, elle doit d'abord être instanciée, par exemple

Dim tre as TextRange
Set tre = ActiveWindow.Selection.TextRange

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TextRange : Selection.TextRange, TextFrame.TextRange, Characters, Paste, Replace, PasteSpecial, Find, InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber, InsertSymbol, Lines, Paragraphs, Runs, Sentences, TrimText et Words

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures BoundHeight, BoundWidth, Font et ParagraphFormat

Méthodes

Les méthodes principales de la classe TextRange sont

Copy - Copie l’objet spécifié dans le Presse-papiers.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Copy

Delete - Supprime l’objet TextRange spécifié.

ActiveWindow.Selection.TextRange.Delete

Select - Sélectionne l'objet spécifié.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Select

Autre Méthodes

Characters - Renvoie un objet TextRange qui représente le sous-ensemble spécifié de caractères de texte. Pour plus d’informations sur le comptage ou la boucle des caractères d’une plage de texte, voir l’objet TextRange .

Dim treCharacters As TextRange
Set treCharacters = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Characters()

Find - Recherche le texte spécifié dans une plage de texte et renvoie un objet TextRange qui représente la première plage de texte dans laquelle le texte est trouvé. Renvoie la valeur Nothing si aucune occurrence n’est trouvée.

Dim strFindWhat As String: strFindWhat = 
Dim treFind As TextRange
Set treFind = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Find(FindWhat:=strFindWhat)

InsertDateTime - Insère la date et l’heure dans la plage de texte spécifiée. Renvoie un objet TextRange qui représente le texte inséré.

Dim treInsertDateTime As TextRange
Set treInsertDateTime = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.InsertDateTime(DateTimeFormat:=ppDateTimeddddMMMMddyyyy)

InsertSymbol - Renvoie un objet TextRange qui représente un symbole inséré dans la plage de texte spécifiée.

Dim strFontName As String: strFontName = 
Dim lngCharNumber As Long: lngCharNumber = 
Dim treInsertSymbol As TextRange
Set treInsertSymbol = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.InsertSymbol(FontName:=strFontName, CharNumber:=lngCharNumber)

Lines - Renvoie un objet TextRange qui représente le sous-ensemble spécifié de lignes de texte. Pour plus d’informations sur le comptage ou la boucle des lignes d’une plage de texte, voir l’objet TextRange .

Dim treLines As TextRange
Set treLines = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Lines()

Paragraphs - Renvoie un objet TextRange qui représente le sous-ensemble de paragraphes spécifié d’un texte.

Dim treParagraphs As TextRange
Set treParagraphs = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Paragraphs()

PasteSpecial - Remplace la plage de texte par le contenu du Presse-papiers au format spécifié.

Dim trePasteSpecial As TextRange
Set trePasteSpecial = ActiveWindow.Selection.TextRange.PasteSpecial()

Replace - Recherche un texte précis dans une plage de texte, remplace le texte trouvé par une chaîne spécifiée, puis renvoie un objet TextRange représentant la première occurrence du texte trouvé. Renvoie la valeur Nothing si aucune occurrence n’est trouvée.

Dim strFindWhat As String: strFindWhat = 
Dim strReplaceWhat As String: strReplaceWhat = 
Dim treReplaced As TextRange
Set treReplaced = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Replace(FindWhat:=strFindWhat, ReplaceWhat:=strReplaceWhat)

RotatedBounds - Renvoie les coordonnées des sommets du cadre de texte englobant pour la plage de texte indiquée.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.RotatedBounds X1:=, Y1:=, X2:=, Y2:=, X3:=, Y3:=, x4:=, y4:=

Runs - Renvoie un objet TextRange qui représente le sous-ensemble spécifié de séquences de texte. Une exécution de texte représente une plage de caractères partageant les mêmes attributs de police.

Dim treRuns As TextRange
Set treRuns = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Runs()

Sentences - Renvoie un objet TextRange qui représente le sous-ensemble spécifié de phrases de texte.

Dim treSentences As TextRange
Set treSentences = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Sentences()

Words - Renvoie un objet TextRange qui représente le sous-ensemble spécifié de mots de texte.

Dim treWords As TextRange
Set treWords = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Words()

Propriétés

ActionSettings Renvoie un objet ActionSettings qui contient des informations sur l’action qui se produit lorsque l’utilisateur clique ou déplace la souris sur la forme ou la plage de texte spécifiée au cours d’un diaporama. En lecture seule.

Dim assActionSettings As ActionSettings
Set assActionSettings = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.ActionSettings

BoundLeft Cette propriété renvoie la distance (en points) entre le côté gauche du cadre de la zone de texte spécifiée et le bord gauche de la diapositive. En lecture seule.

Dim sngBoundLeft As Single
sngBoundLeft = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.BoundLeft

BoundTop Cette propriété renvoie la distance (en points) entre le haut du cadre de la zone de texte spécifiée et le haut de la diapositive. En lecture seule.

Dim sngBoundTop As Single
sngBoundTop = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.BoundTop

Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.TextRange.Count

IndentLevel Cette propriété renvoie ou définit le niveau de retrait du texte spécifié sous la forme d’un nombre entier compris entre 1 et 5, où 1 indique un paragraphe de premier niveau sans retrait. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.IndentLevel = 2

LanguageID Renvoie ou définit la langue pour la plage de texte spécifiée. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.LanguageID = msoLanguageIDMixed

Length Renvoie la longueur de la plage de texte spécifiée, en caractères. En lecture seule.

Dim lngLength As Long
lngLength = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Length

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.TextRange.Parent

Start Renvoie la position du premier caractère dans la plage de texte spécifiée par rapport au premier caractère dans la forme qui contient le texte. En lecture seule.

Dim lngStart As Long
lngStart = ActiveWindow.Selection.TextRange.Start

Text Renvoie ou définit String qui représente le texte contenu dans l’objet spécifié. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text =