Word VBA: Как изменить нумерацию и размер шрифта у концевых сносок с помощью макроса?

Автор MaryK, 14 августа 2018, 11:52

MaryK

Помогите исправить сноски.
Почему-то в нескольких файлах у меня есть такие сноски.
Мне нужно, чтобы они были по порядку и с нормальным шрифтом.
У меня Word 2003. Макросы я умею запускать.

[вложение удалено администратором]

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

Sub макрос()

    Dim enote As Endnote
   
    Application.ScreenUpdating = False
    For Each enote In ActiveDocument.Endnotes
        enote.Reference.EndnoteOptions.NumberStyle = wdNoteNumberStyleArabic
        enote.Reference.Style = wdStyleEndnoteReference
        enote.Range.Paragraphs(1).Range.Characters(1).Style = wdStyleEndnoteReference
    Next enote
    Application.ScreenUpdating = True
   
End Sub