Помогите исправить сноски.
Почему-то в нескольких файлах у меня есть такие сноски.
Мне нужно, чтобы они были по порядку и с нормальным шрифтом.
У меня 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
Спасибо, администратор!!