Здравствуйте! У меня есть такая проблема: есть большой текст со сносками. В сносках почему-то есть неправильный шрифт. Некоторые написаны в надстрочном шрифте, а сами цифры - в обычном, у некоторых - цифры правильные, а текст сносок - в надстрочном шрифте. Можно ли написать макрос, исправляющий текст сносок: цифры сносок чтобы были в надстрочном виде, а сам текст сносок - в обычном. Пример приложил, в данном примере правильные шрифты только у сноски №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
Маэстро! Огромное Вам спасибо! Все получилось!