Selection.Expand (Word)

Expande o intervalo ou seleção especificada. Retorna o número de caracteres adicionados ao intervalo ou seleção.

Expand (Unit)

Unit: Uma constante WdUnits que representa a unidade pela qual expandir o intervalo. O valor padrão é wdWord.

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