Word VBA: Исправить шрифт у сносок

[StudentS]

Здравствуйте! У меня есть такая проблема: есть большой текст со сносками. В сносках почему-то есть неправильный шрифт. Некоторые написаны в надстрочном шрифте, а сами цифры - в обычном, у некоторых  - цифры правильные, а текст сносок - в надстрочном шрифте. Можно ли написать макрос, исправляющий текст сносок: цифры сносок чтобы были в надстрочном виде, а сам текст сносок - в обычном. Пример приложил, в данном примере правильные шрифты только у сноски №3.

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

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

Макрос для концевых сносок (и для "В конце раздела", и для "В конце документа").

Макрос

Sub Макрос1()
   
    Dim enote As Endnote
   
    '1. Отключение монитора.
    Application.ScreenUpdating = False
   
    '2. Сброс у шрифта параметра "надстрочный" у всех концевых сносок.
    ActiveDocument.StoryRanges(wdEndnotesStory).Font.Superscript = False
   
    For Each enote In ActiveDocument.Endnotes
        '3. Установка "надстрочный" у номера сноски.
        enote.Range.Paragraphs(1).Range.Characters(1).Font.Superscript = True
    Next enote
   
    '4. Включение монитора.
    Application.ScreenUpdating = True

    '5. Сообщение.
    MsgBox "Готово.", vbInformation

End Sub

[свернуть]

[StudentS]

Маэстро! Огромное Вам спасибо! Все получилось!