Selection.End (Word)

Retorna ou define a posição de caractere final de uma seleção. Long de leitura/gravação.

Se essa propriedade estiver definida como um valor menor que a propriedade Start, a propriedade Start será definida com o mesmo valor (ou seja, as propriedades Start e End ficarão iguais). O objeto Selection tem uma posição inicial e uma posição final. A posição final é o ponto mais afastado do início da história. Essa propriedade retorna a posição de caractere final em relação ao início da história. O texto do documento principal (wdMainTextStory) começa com a posição do caractere 0 (zero). Você pode alterar o tamanho de uma seleção pela definição desta propriedade.

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