Document.HyphenateCaps (Word)

True si se pueden dividir las palabras en mayúsculas.

With ActiveDocument 
 .AutoHyphenation = True 
 .HyphenateCaps = True 
End With