Selection.Shrink (Word)

Réduit la sélection à l'unité de texte inférieure la plus proche.

L'ordre des unités pour cette méthode est le suivant : document entier, section, paragraphe, phrase, mot, puis point d'insertion.

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