Word VBA Макросы. Как с помощью макроса в надписи сделать перенос слов?

[Peach]

Как с помощью макроса в надписи сделать перенос слов?

В программе "Word" это делается так: щёлкните по рамке надписи правой кнопкой мыши - Формат фигуры... - справа появится область - вкладка "Параметры фигуры" - кнопка "Макет и свойства" - галочка "Переносить текст в фигуре по словам".

[Администратор]

Макрос работает с выделенной надписью.

Sub Макрос()
    Selection.ShapeRange(1).TextFrame.WordWrap = True
End Sub

[Peach]

Оно работает! Это просто восхитительно!