Расстановка переносов - MS Word

Доброго времени суток! Помогите пожалуйста написать макрос, который бы осуществлял расстановку переносов (ширина зоны переносов слов - 0,4 см). В текстовый документ добавил кнопку (элемент ActiveX), накидал текста и предпринял попытку сделать что-то подобное, но всё безуспешно.
Private Sub CommandButton1_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
End Sub
3 ответа

Неужели никто не знает как это сделать???


накидал текста
Попробуйте накидать оставшийся текст: программный код, позволяющий автоматическую расстановку переносов в документе, а внутри, после строчки:
.AutoHyphenation = True
докидайте еще:
' ширина зоны переносов слов - 0,4 см
.HyphenationZone = CentimetersToPoints(0.4)


AlexSmel, Спасибо. Вроде сработало.