多种对象![]() |
该对象代表指定给文档中尾注的某区域或所选内容的属性。
使用 Range 或 Selection 对象可返回一个 EndnoteOptions 对象。使用 EndnoteOptions 对象可为文档的不同区域指定不同的尾注属性。例如,可将长文档说明部分的尾注用小写罗马数字显示,而文档中其余部分的尾注用阿拉伯数字显示。下列示例使用 NumberingRule、NumberStyle 和 StartingNumber 属性设置活动文档中第一节的尾注格式。
Sub BookIntro()
Dim rngIntro As Range
'Sets the range as section one of the active document
Set rngIntro = ActiveDocument.Sections(1).Range
'Formats the EndnoteOptions properties
With rngIntro.EndnoteOptions
.NumberingRule = wdRestartSection
.NumberStyle = wdNoteNumberStyleLowercaseRoman
.StartingNumber = 1
End With
End Sub