Range.EndOf-Methode (Word)
Verschiebt oder erweitert die Position des letzten Zeichens eines Bereichs bis zum Ende der nächsten angegebenen Texteinheit.
Ausdruck.
EndOf
( _Unit_
, _Extend_
)
expression Erforderlich. Eine Variable, die ein Range -Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Unit | Optional | Variant | Die Einheit, um die die Position des letzten Zeichens verschoben wird. Dabei kann es sich um eine beliebige WdUnits-Konstante außer der wdLine-Konstante handeln. Der Standardwert ist wdWord. |
Extend | Erforderlich | WdMovementType | Gibt an, ob das Ende des Bereichs verschoben oder erweitert werden soll. Wenn der Wert wdMove lautet, werden beide Enden des Bereichs- oder der Markierungsobjekts bis zum Ende der angegebenen Einheit verschoben. Bei Verwendung von wdExtend wird das Ende des Bereichs oder der Markierung bis an das Ende der angegebenen Einheit erweitert. Der Standardwert ist wdMove. |
Diese Methode gibt einen Wert zurück, der die Anzahl der Zeichenpositionen angibt, um die der Bereich bzw. die Markierung verschoben oder erweitert wurde (Verschiebung erfolgt im Dokument vorwärts).
Wenn sich die Anfangs- und die Endposition für den Bereich oder die Markierung bereits am Ende der angegebenen Einheit befinden, verschiebt oder erweitert diese Methode den Bereich oder die Markierung nicht. Wenn sich die Auswahl beispielsweise am Ende eines Worts und im nachfolgenden Leerzeichen befindet, ändert die folgende Anweisung nicht die Auswahl ( char gleich 0 (null)).
char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
In diesem Beispiel wird die Markierung bis an das Ende des Absatzes erweitert.
charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)
If charmoved = 0 Then MsgBox "Selection unchanged"
In diesem Beispiel wird myRange bis zum Ende des ersten Worts in der Markierung (nach dem nachstehenden Leerzeichen) verschoben.
Set myRange = Selection.Characters(1)
myRange.EndOf Unit:=wdWord, Extend:=wdMove
In diesem Beispiel wird eine Tabelle erstellt und die erste Zelle in Zeile zwei markiert. Dann wird die Markierung bis zum Ende der Spalte erweitert.
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend
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.