Selection.Shrink (Word)

Verkleinert die Auswahl auf die nächstkleinere Texteinheit.

Die Einheitenreihenfolge für diese Methode ist folgende: ganzes Dokument, Abschnitt, Absatz, Satz, Wort, Einfügemarke.

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