Range.MoveStartUntil (Word)
Mueve la posición inicial del intervalo especificado hasta que se encuentre en el documento alguno de los caracteres especificados.
Si el movimiento se realiza hacia atrás, el intervalo se expande. Este método devuelve el número de caracteres que se ha movido la posición inicial del intervalo especificado, como un valor de tipo Long .
Set myRange = Selection.Paragraphs(1).Range
leng = myRange.End - myRange.Start
myRange.Collapse Direction:=wdCollapseStart
myRange.MoveStartUntil Cset:="$", Count:=leng