Selection.MoveEndWhile (Word)
Mueve la posición de carácter final de una selección mientras se encuentre en el documento alguno de los caracteres especificados.
Mientras se encuentre cualquier carácter de Cset, se mueve la posición final de la selección especificada.
Selection.MoveEndWhile Cset:=" ", Count:=wdForward