Selection.Shrink Method (Word)
Shrinks the selection to the next smaller unit of text.
A variable that represents a Selection object.
The unit progression for this method is as follows: entire document, section, paragraph, sentence, word, insertion point.
This example collapses the selected text to the next smaller unit of text.
If Selection.Type = wdSelectionNormal Then
MsgBox "You need to select some text."