TextRange.MoveEnd-Methode (Publisher)

Verschiebt die Position des letzten Zeichens eines Bereichs. Diese Methode gibt einen Long-Wert zurück, der die Anzahl der Einheiten darstellt, die der Bereich oder die Auswahl tatsächlich verschoben hat, oder sie gibt 0 (null) zurück, wenn die Verschiebung nicht erfolgreich war.

Syntax

Ausdruck. MoveEnd (Einheit, Größe)

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Unit	Erforderlich	PbTextUnit-Wert	Die Einheit, um die der reduzierte Bereich oder die reduzierte Auswahl verschoben werden soll. Dies kann eine der pbTextUnit-Konstanten sein, die in der Microsoft Publisher-Typbibliothek deklariert sind.
Größe	Erforderlich	Long	Die Anzahl von Einheiten, um die verschoben werden soll. Wenn diese Zahl positiv ist, wird die Position des Endzeichens im Dokument nach vorn verschoben. Ist die Zahl negativ, wird das Ende nach hinten verschoben. Wenn die Endposition die Anfangsposition überschreitet, wird der Bereich reduziert, und beide Zeichenpositionen werden gemeinsam verschoben.

Rückgabewert

Long

Beispiel

In diesem Beispiel wird ein Textbereich festgelegt, die Position der Anfangs- und Endzeichen des Bereichs verschoben und dann die Schriftart für den Bereich formatiert.

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 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.