Selection.MoveUntil (Word)
Move a seleção especificada até um dos caracteres especificados ser localizado no documento.
Esse método retorna o número de caracteres pelos quais a seleção especificada 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 um. Se Count for menor que 0 (zero), esse método retorna o número de caracteres movidos menos um. Se nenhum caractere Cset forem encontrada, a seleção não será alterada e o método retornará 0 (zero).
x = Selection.MoveUntil(Cset:=Chr$(13), Count:=wdForward)
MsgBox x-1 & " character positions were moved"
Arguments
O seguinte argumento é necessário
Cset (String) - Um ou mais caracteres. Se algum caractere de Cset for localizado antes de o valor Count expirar, a seleção especificada será posicionada como um ponto de inserção imediatamente antes desse caractere. 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 a seleção especificada deve ser movido. Pode ser um número ou o wdForward ou wdBackward constante. Se Count for um número positivo, a seleção será movida para frente no documento, começando à meia a posição final. Se for um número negativo, a seleção será movida para trás, começando à meia a posição inicial. O valor padrão é wdForward.