Selection.End (Word)

Cette propriété renvoie ou définit la position du caractère de fin d'une sélection.

Si cette propriété est définie sur une valeur inférieure à la propriété Start, la propriété Start est définie sur la même valeur (autrement dit, les propriétés Start et End sont identiques). L'objet Selection a une position de départ et une position de fin.

pos = Selection.End 
Set myRange = ActiveDocument.Range(Start:=pos, End:=pos) 
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldAuthor