Selection.Expand (Word)

Développe la plage spécifiée ou la sélection.

Expand (Unit)

Unit: Constante WdUnits qui représente l'unité utilisée développer la plage.

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