TextRange.Lines-Methode (Publisher)

Gibt ein TextRange-Objekt zurück, das die angegebenen Zeilen darstellt.

Syntax

Ausdruck. Zeilen (Start, Länge)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Start	Erforderlich	Long	Die erste Zeile des zurückgegebenen Bereichs.
Length	Optional	Long	Die Anzahl der zurückzugebenden Zeilen. Der Standardwert ist 1.

Rückgabewert

TextRange

Hinweise

Wenn Start größer ist als die Anzahl der Zeilen im angegebenen Text, beginnt der zurückgegebene Bereich mit der letzten Zeile im angegebenen Bereich.

Ist Length größer als die Anzahl der Zeilen von der festgelegten Anfangszeile bis zum Ende des Texts, enthält der zurückgegebene Bereich alle diese Zeilen.

Beispiel

In diesem Beispiel werden die ersten drei Zeilen der ersten Form auf der ersten Seite durch die angegebene Zeichenfolge ersetzt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.