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