Добрый день!
Помогите пожалуйста с помощью 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
Большое спасибо!