VBA для вставки справочной страницы в MS word endnote
Сноски книг часто отказываются от надстрочных чисел для номеров страниц. Например, вместо
Abe Lincoln was assassinated with a pistol.^33
:
33. A single-shot derringer pistol.
книги нескольких авторов пишут
Abe Lincoln was assassinated with a pistol.
:
Page 297. Abe Lincoln was shot single-shot derringer pistol.
В Word нет этой функции, поэтому я считаю, что это должен быть макрос. Я придумал простой код ниже, который перебирает все сноски и добавляет
"Page ???. "
перед каждым примечанием, но что означает "???" нужно правильно вставить номер страницы в мою рукопись, на которой находится цитата?
Sub RedefineExistingEndNotes()
Dim fn As Endnote
For Each fn In ActiveDocument.Endnotes
fn.Range.Paragraphs(1).Range.Font.Reset
fn.Range.Paragraphs(1).Range.Characters(1).InsertBefore "Page" & "???" & " - "
Next fn
End Sub