Sub Test() With ActiveShape.Text.HyphenationSettings .UseAutomaticHyphenation = True .MinCharactersBefore = 2 .MinCharactersAfter = 2 End WithEnd Sub