Selection.Shrink (Word)

Diminui a seleção para a menor unidade de texto seguinte.

A progressão da unidade para esse método é a seguinte: documento inteiro, seção, parágrafo, frase, palavra, ponto de inserção.

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