Selection.Expand (Word)

Erweitert den angegebenen Bereich oder die Auswahl.

Expand (Unit)

Unit: Eine WdUnits -Konstante, die die Einheit darstellt, um die der Bereich erweitert werden soll.

With Selection 
 .Characters(1).Case = wdTitleSentence 
 .Expand Unit:=wdSentence 
End With