Selection.Expand (Word)

Se expande el intervalo o selección especificados.

Expand (Unit)

Unit: Constante WdUnits que representa la unidad mediante la que se va a expandir el intervalo.

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