Сортировка по заголовку в Word - VBA

Формулировка задачи:

недавно начал осваивать Visual Basic for Applications и сразу куча трудностей, помогите начинающиму горе-програмисту...

необходимо создать макрос, который будет сортировать разделы текста в алфавитном порядке заголовков, текст заголовка должен перемещаться вместе с заголовком.

Решение задачи: «Сортировка по заголовку в Word»

textual
                            Листинг программы 
                        

                            ActiveWindow.ActivePane.View=wdMasterView
    Selection.Style = ActiveDocument.Styles("Заголовок 1")
Selection.Sort
ActiveWindow.ActivePane.View=wdNormalView
                        