Selection.Shrink (Word)

Shrinks the selection to the next smaller unit of text.

The unit progression for this method is as follows: entire document, section, paragraph, sentence, word, insertion point.

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