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 .

MoveStartUntil (Cset, Count)

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.