Freigeben über


TextRange.Move-Methode (Publisher)

Reduziert den angegebenen Bereich auf seine Start- oder Endposition und verschiebt dann das reduzierte Objekt um die angegebene Anzahl von Einheiten. Diese Methode gibt eine lange, die die Anzahl der Einheiten darstellt, um die das Objekt tatsächlich verschoben wurde, oder sie gibt 0 (null) zurück, wenn die Verschiebung nicht erfolgreich war.

Syntax

Ausdruck. Verschieben (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 der Einheiten, um die der angegebene Bereich oder die Auswahl verschoben werden soll.

Wenn eine positive Zahl ist, wird das Objekt zu seiner Endposition reduziert und im Dokument um die angegebene Anzahl von Einheiten nach vorn verschoben. Wenn eine negative Zahl ist, wird das Objekt zu seiner Startposition reduziert und um die angegebene Anzahl von Einheiten nach hinten verschoben.

Sie können auch die Richtung des Reduzierens steuern, indem Sie die Collapse-Methode verwenden, bevor Sie die Move-Methode verwenden.

Rückgabewert

Long

Beispiel

Das folgende Beispiel reduziert den angegebenen Bereich und fügt am Anfang des Bereichs einen neuen Satz ein.

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 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.