Document.HyphenateCaps (Word)

True si les mots en majuscules peuvent être coupés.

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