Selection.End (Word)
Gibt die Endzeichenposition einer Markierung zurück oder legt sie fest.
Wenn diese Eigenschaft auf einen Wert festgelegt ist, der kleiner als die Start -Eigenschaft ist, wird die Start -Eigenschaft auf denselben Wert festgelegt (das heißt, die Start -und die End -Eigenschaft sind gleich). Das Selection -Objekt hat eine Anfangsposition und eine Endposition.
pos = Selection.End
Set myRange = ActiveDocument.Range(Start:=pos, End:=pos)
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldAuthor