Selection.MoveUntil (Word)
Mueve la selección especificada hasta que se encuentre en el documento uno de los caracteres especificados.
Este método devuelve el número de caracteres que se ha movido la selección especificada, como un valor de tipo Long .
x = Selection.MoveUntil(Cset:=Chr$(13), Count:=wdForward)
MsgBox x-1 & " character positions were moved"