TextRange.Collapse-Methode (Publisher)

Artikel
10/16/2024

Ein Bereich oder eine Auswahl wird auf die Anfangs- oder Endposition reduziert. Wenn ein Bereich oder eine Auswahl reduziert ist, sind die Anfangs- und Endpunkte gleich.

Syntax

Ausdruck. Reduzieren (Richtung)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Direction	Erforderlich	PbCollapseDirection-Wert	Die Richtung, in der der Bereich oder die Auswahl reduziert werden soll. Dies kann eine der pbCollapseDirection-Konstanten sein, die in der Microsoft Publisher-Typbibliothek deklariert sind.

Hinweise

Wenn Sie PbCollapseEnd verwenden, um einen Bereich zu reduzieren, der auf einen ganzen Absatz verweist, wird der Bereich gefunden werden nach der abschließenden Absatzmarke (am Anfang des nächsten Absatzes). Sie können den Bereich jedoch um ein Zeichen zurück verschieben, indem Sie die MoveEnd-Methode verwenden, nachdem der Bereich reduziert wurde.

Beispiel

Dieses Beispiel fügt Text am Anfang des zweiten Absatzes in der ersten Form auf der ersten Seite der aktiven Publikation ein. Es geht davon aus, dass die angegebene Form ein Textrahmen und keine andere Art von Form ist.

Sub CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

Dieses Beispiel platziert neuen Text am Ende des ersten Absatzes in der ersten Form auf der ersten Seite der aktiven Publikation. Es geht davon aus, dass die angegebene Form ein Textrahmen und keine andere Art von Form ist.

Sub CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 End With 
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.

Freigeben über