Document.HyphenateCaps (Word)

True se palavras com todas maiúsculas podem ser hifenizadas. Boolean de leitura/gravação.

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