Selection.StartIsActive-Eigenschaft (Word)

  • Artikel

True, wenn der Anfang der Markierung aktiv ist. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. StartIsActive

Ausdruck Ein Ausdruck, der ein Selection-Objekt zurückgibt.

HinwBemerkungeneise

Wenn die Markierung nicht auf eine Einfügemarke reduziert ist, wird entweder der Anfang oder das Ende der Markierung aktiviert. Das aktive Ende der Auswahl wird verschoben, wenn Sie die folgenden Methoden aufrufen: EndKey, Extend (mit dem Argument Characters), HomeKey, MoveDown, MoveLeft, MoveRight und MoveUp.

Diese Eigenschaft entspricht der Verwendung der Flags-Eigenschaft mit der WdSelStartActive-Konstante . Die Verwendung der Flags-Eigenschaft erfordert jedoch binäre Operationen, deren Verwendung komplizierter als die der StartIsActive-Eigenschaft ist.

Beispiel

In diesem Beispiel wird die aktuelle Markierung auf die nächsten zwei Wörter erweitert. Hierbei ist zu beachten, dass zunächst das Ende der Markierung aktiviert wird, um sicherzustellen, dass der gesamte gegenwärtig markierte Text während des Erweiterungsvorgangs markiert bleibt. Wenn also beispielsweise die ersten drei Wörter eines Absatzes markiert werden, während der Anfang der Markierung aktiv ist, würde durch das Aufrufen der MoveRight-Methode lediglich die Markierung der ersten zwei Wörter aufgehoben.

With Selection 
 .StartIsActive = False 
 .MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend 
End With

Im folgenden Beispiel wird der gleiche Vorgang unter Verwendung der Flags-Eigenschaft gezeigt. Diese Lösung ist jedoch problematisch, da die Einstellung der Flags-Eigenschaft nur durch das Überschreiben mit einem unabhängigen Wert deaktiviert werden kann.

With Selection 
 If (.Flags And wdSelStartActive) = wdSelStartActive Then _ 
 .Flags = wdSelReplace 
 .MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend 
End With

Im folgenden Beispiel wird die MoveEnd-Methode verwendet, wodurch nicht mehr überprüft werden muss, welches Ende der Auswahl aktiv ist.

With Selection 
 .MoveEnd Unit:=wdWord, Count:=2 
End With

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.