Sub Test() With ActiveShape.Text.HyphenationSettings .UseAutomaticHyphenation = True .MinWordLength = 6 End WithEnd Sub