Word VBA: Страничные сноски сделать концевыми с помощью макроса

[Anton]

Добрый день!
Помогите пожалуйста с помощью VBA решить такую задачу: если есть в документе страничные сноски, нужно сделать их концевыми. Причем концевыми - в конце раздела, формат номера 1,2,3..., начать с 1 и нумерация в каждом разделе.
Если есть концевые сноски, то просто отформатировать: в конце раздела, формат номера 1,2,3..., начать с 1 и нумерация в каждом разделе.

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

Если это делать надо редко, то можно без макроса:

Ручной способ

Этап 1. Замена обычных сносок на концевые.
1) Вкладка "Ссылки" - группа "Сноски" - справа еле заметная стрелка - откроется диалог.
2) Поставьте кружок "концевые сноски" - Заменить...

Этап 2. Настройка концевых сносок.
1. Вкладка "Ссылки" - группа "Сноски" - справа еле заметная стрелка - откроется диалог.
2. Поставьте кружок "концевые сноски" - справа выберите "В конце раздела".
3. В области "Формат" выберите нужные настройки.
4. В области "Применить изменения" выберите "Ко всему документу".
5. Применить.

[свернуть]

Макрос

Sub Макрос()
   
    ' Отключение монитора (может это ускорит макрос и чтобы не мерцало).
    Application.ScreenUpdating = False
    '1. Превращение обычных сносок в концевые.
    ActiveDocument.Footnotes.Convert
    '2. Настройка концевых сносок.
    With ActiveDocument.Range.EndnoteOptions
        .Location = wdEndOfSection
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleArabic
    End With
    '3. Вкл. монитора и сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation
   
End Sub

[свернуть]

[Anton]

Большое спасибо!