Selection.MoveEndUntil-Methode (Word)
Verschiebt die Endposition der angegebenen Auswahl, bis eines der angegebenen Zeichen im Dokument gefunden wird.
Syntax
Ausdruck.
MoveEndUntil( _Cset_ , _Count_ )
expression Erforderlich. Eine Variable, die ein Selection-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Cset | Erforderlich | Variant | Mindestens ein Zeichen. Bei diesem Argument wird die Groß-/Kleinschreibung beachtet. |
| Count | Optional | Variant | Die maximale Anzahl der Zeichen, um die die angegebene Auswahl verschoben werden soll. Dies kann eine Zahl, die wdForward- oder wdBackward-Konstante sein. Wenn Count eine positive Zahl ist, wird die Auswahl im Dokument vorwärts verschoben. Wenn es eine negative Zahl ist, wird die Auswahl rückwärts verschoben. Der Standardwert ist wdForward. |
Rückgabewert
Long
Hinweise
Bei dieser Methode wird ein Long-Wert zurückgegeben, der die Anzahl der Zeichen darstellt, um welche die Endposition der angegebenen Auswahl verschoben wurde. Wenn Count größer als 0 (null) ist, gibt diese Methode die Anzahl der Zeichen, um die verschoben wurde, plus 1 zurück. Wenn Count kleiner als 0 (null) ist, gibt diese Methode die Anzahl der Zeichen, um die verschoben wurde, minus 1 zurück. Wenn keine Cset-Zeichen gefunden werden, wird die Auswahl nicht geändert, und die Methode gibt 0 (null) zurück. Wenn die Endposition rückwärts zu einem Punkt verschoben wird, der vor der ursprünglichen Startposition liegt, wird die Startposition auf der neuen Endposition festgelegt.
Wenn die Verschiebung im Dokument vorwärts erfolgt, wird die Auswahl erweitert.
Beispiel
In diesem Beispiel wird die Auswahl im Dokument vorwärts erweitert, bis der Buchstabe "a" gefunden wird. In dem Beispiel wird dann die Auswahl um ein Zeichen erweitert, damit der Buchstabe "a" darin enthalten ist.
With Selection
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With
In diesem Beispiel wird die Auswahl im Dokument vorwärts erweitert, bis ein Tabstopp gefunden wird. Wenn in den nächsten 100 Zeichen kein Tabstoppzeichen gefunden wird, wird die Auswahl nicht verschoben.
char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100)
If char = 0 Then StatusBar = "Selection not moved"
Siehe auch
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.