Méthode TextRange.Lines (Publisher)

Renvoie un objet TextRange qui représente les lignes spécifiées.

Syntaxe

expression. Lignes (Début, Longueur)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Start	Obligatoire	Long	Première ligne de la plage renvoyée.
Longueur	Facultatif	Long	Nombre de lignes à renvoyer. La valeur par défaut est 1.

Valeur renvoyée

TextRange

Remarques

Si la valeur de Début est supérieure au nombre de lignes du texte spécifié, la plage renvoyée commence par la dernière ligne de la plage spécifiée.

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

Exemple

Cet exemple remplace par la chaîne spécifiée les trois premières lignes de la première forme de la première page.

Sub ReplaceLines() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Lines(Start:=1, Length:=3) 
 
 rngText.Text = "This is replacement text." & vbCrLf 
 
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.