Selection.Shrink (Word)

Comprime la selección hasta la unidad de texto inferior siguiente.

La progresión de unidades es la siguiente: todo el documento, toda la sección, todo el párrafo, toda la frase, toda la palabra, el punto de inserción.

If Selection.Type = wdSelectionNormal Then 
 Selection.Shrink 
Else 
 MsgBox "You need to select some text." 
End If