Document.HyphenateCaps (Word)

True if words in all capital letters can be hyphenated.

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