Selection.End (Word)

Devuelve o establece la posición del carácter final de una selección.

Si esta propiedad se establece en un valor menor que la propiedad Start, la propiedad Start se establece en el mismo valor (es decir, las propiedades Start y End son iguales). El objeto Selection tiene una posición inicial y una posición final.

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