концевая сноска с нумерацией римскими цифрами

[caute]

Подскажите команду, которая вставляла бы концевые сноски не арабскими, а римскими цифрами. А то несколько лишних телодвижений приходится делать в каждом новом доке.

[caute]

разобрался кое-как

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