Range.MoveEndUntil (Word)
Mueve la posición final del intervalo especificado hasta que se encuentre en el documento alguno de los caracteres especificados.
Este método devuelve el número de caracteres que se ha movido la posición final del intervalo especificado, como un valor de tipo Long .
With Selection.Range
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With