Propriété TextRange2.Runs (Office)

Obtient un objet TextRange2 qui représente le sous-ensemble spécifié d’exécutions de texte. Une exécution de texte comporte une plage de caractères qui partagent les mêmes attributs de police. En lecture seule.

Syntaxe

expression. Exécutions (Début, Longueur)

expression Expression qui renvoie un objet TextRange2 .

Paramètres

Valeur renvoyée

TextRange2

Remarques

Si les paramètres Start et Length sont omis tous les deux, la plage renvoyée commence par la première suite et se termine par le dernier paragraphe de la plage spécifiée.

Si Start est spécifié mais pas Length, la plage renvoyée contient une seule suite de caractères.

Si Length est spécifié mais pas Start, la plage renvoyée commence par la première suite de caractères de la plage spécifiée.

Si Start est plus grand que le nombre de suites de caractères du texte spécifié, la plage renvoyée commence par la dernière suite de la plage spécifiée.

Si Length est plus grand que le nombre de suites de caractères à partir de la suite de départ spécifiée jusqu’à la fin du texte, la plage renvoyée contient toutes ces suites.

Une exécution se compose de tous les caractères, du premier caractère après un changement de police à l'avant-dernier caractère ayant les mêmes attributs de police. Par exemple, examinez la phrase ci-dessous :

Ce mot en italique n’est pas gras.

Dans cette phrase, la première suite se compose du mot « Ici » seulement si l’espace suivant n’est pas en italique (si l’espace est aussi en italique, la première suite ne contient que les deux premiers caractères, « Ic »). De même, la seconde exécution contient le mot « italique » uniquement si l'espace après le mot est en italique.

Exemple

Cet exemple permet de mettre en italique gras la seconde exécution dans la forme 2, de la diapositive 1, de la présentation active si elle est déjà en italique.

With Application.ActivePresentation.Slides(1).Shapes(2) _ 
        .TextFrame.TextRange2 
    With .Runs(2).Font 
        If .Italic Then 
            .Bold = True 
        End If 
    End With 
End With

Voir aussi

• Membres de l’objet TextRange2

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.