Selection.MoveEndUntil (Word)
Mueve la posición final de la selección especificada hasta que se encuentre en el documento alguno de los caracteres especificados.
Este método devuelve un Long que representa el número de caracteres que se ha movido la posición final de la selección especificada. Si el movimiento se realiza hacia delante, la selección se expande.
With Selection
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With