Selection.EndOf-Methode (Word)

  • Artikel

Verschiebt die Position des letzten Zeichens eines Bereichs bzw. einer Markierung oder erweitert den Bereich bzw. die Markierung bis zum Ende der nächsten angegebenen Texteinheit.

Syntax

Ausdruck. EndOf( _Unit_ , _Extend_ )

Ausdruck: Erforderlich. Eine Variable, die ein Selection-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Unit Optional Variant Die Einheit, um die die Position des letzten Zeichens verschoben wird. WdUnits.
Extend Optional Variant Dabei kann es sich um eine der WdMovementType-Konstanten handeln. Wenn wdMove verwendet wird, werden beide Enden des Bereichs oder der Markierung an das 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.

HinwBemerkungeneise

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)

Beispiel

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

Siehe auch

Selection-Objekt

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.