Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

разобрался кое-как
Код:
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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить, правильна ли запись числа римскими цифрами. 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