Sub Test() ActiveDocument.Unit = cdrMillimeter ActiveShape.Text.HyphenationSettings.HotZone = 7End Sub