Range.MoveEnd (Word)

Verschiebt die Position des letzten Zeichens eines Bereichs.

Diese Methode gibt eine ganze Zahl zurück, die die Anzahl der Einheiten angibt, um die der Bereich tatsächlich verschoben wurde, oder sie gibt 0 (null) zurück, wenn die Verschiebung nicht erfolgreich war.

MoveEnd (Unit, Count)

If ActiveDocument.Words.Count >= 3 Then 
 Set myRange = ActiveDocument.Words(2) 
 With myRange 
 .MoveEnd Unit:=wdWord, Count:=1 
 .Select 
 End With 
End If

Arguments

Optional arguments

Die folgenden Argumente sind optional

Unit (WdUnits) - Die Einheit, um die die Endzeichenposition verschoben wird.

Dies sind mögliche Werte für WdUnits

Count (Long) - Die Anzahl der Einheiten, um die verschoben werden soll.