Автор Тема: Word VBA: Как изменить нумерацию и размер шрифта у концевых сносок с помощью макроса?  (Прочитано 191 раз)

Оффлайн MaryK

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

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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1574
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

Оффлайн MaryK

  • Посетитель форума
  • Сообщений: 4