Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 21.04.2019, 16:33   #1
caute
Форумчанин
 
Регистрация: 27.10.2009
Сообщений: 264
По умолчанию концевая сноска с нумерацией римскими цифрами

Подскажите команду, которая вставляла бы концевые сноски не арабскими, а римскими цифрами. А то несколько лишних телодвижений приходится делать в каждом новом доке.
caute вне форума Ответить с цитированием
Старый 23.04.2019, 00:24   #2
caute
Форумчанин
 
Регистрация: 27.10.2009
Сообщений: 264
По умолчанию

разобрался кое-как
Код:
Sub Вставить_концевую_сноску_римскими_цифрами()
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End)
        With .EndnoteOptions
            .Location = wdEndOfDocument
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleLowercaseRoman
        End With
        .Endnotes.Add Range:=Selection.Range, Reference:=""
    End With
End Sub
caute вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить, правильна ли запись числа римскими цифрами. Alekzinder Паскаль, Turbo Pascal, PascalABC.NET 8 21.03.2013 11:53
запись любого целого числа n (n<3999) арабскими цифрами перевести в запись римскими цифрами (на языке C) qazse Помощь студентам 1 24.11.2011 12:05
Калькулятор с римскими цифрами WideSide Помощь студентам 1 04.05.2011 20:31