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
Arguments
Un argumento con nombre
Cset (String) - Uno o más caracteres.
Optional arguments
Los siguientes argumentos son opcionales
Count (Long) - El número máximo de caracteres que se va a mover el intervalo especificado.