Форум по VBA, Excel и Word

Word => Макросы в Word => Тема начата: MaryK от 14 августа 2018, 11:52

Название: Word VBA: Как изменить нумерацию и размер шрифта у концевых сносок с помощью макроса?
Отправлено: MaryK от 14 августа 2018, 11:52
Помогите исправить сноски.
Почему-то в нескольких файлах у меня есть такие сноски.
Мне нужно, чтобы они были по порядку и с нормальным шрифтом.
У меня Word 2003. Макросы я умею запускать.

[вложение удалено администратором]
Название: Re: Word VBA: Как изменить нумерацию и размер шрифта у концевых сносок с помощью макроса?
Отправлено: Администратор от 14 августа 2018, 12:25
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
Название: Re: Word VBA: Как изменить нумерацию и размер шрифта у концевых сносок с помощью макроса?
Отправлено: MaryK от 14 августа 2018, 15:59
Спасибо, администратор!!