Range.MoveStartUntil (Word)
Move a posição inicial do intervalo especificado até um dos caracteres especificados ser localizado no documento.
Se o movimento for para trás no documento, o intervalo será expandido. Esse método retorna o número de caracteres pelos quais a posição inicial do intervalo especificado foi movida, como um valor Long . Se Count for maior do que 0 (zero), esse método retorna o número de caracteres movidos mais 1. Se Count for menor que 0 (zero), esse método retorna o número de caracteres movidos menos 1. Se nenhum caractere Cset forem encontrada, o intervalo especificado não será alterado e o método retornará 0 (zero). Se a posição inicial for movida para frente até um ponto além da posição final, o intervalo estiver recolhido, e ambas as posições de início e término serão movidas juntas.
Set myRange = Selection.Paragraphs(1).Range
leng = myRange.End - myRange.Start
myRange.Collapse Direction:=wdCollapseStart
myRange.MoveStartUntil Cset:="$", Count:=leng
Arguments
O seguinte argumento é necessário
Cset (String) - Um ou mais caracteres. Esse argumento diferencia maiúsculas de minúsculas.
Optional arguments
The following argument is optional
Count (Long) - O número máximo de caracteres pelo qual o intervalo especificado deve ser movido. Pode ser um número ou o wdForward ou wdBackward constante. Se Count for um número positivo, o intervalo será movido para frente no documento. Se for um número negativo, o intervalo é movido para trás. O valor padrão é wdForward.