通过

PageNumbers.HeadingLevelForChapter 属性 (Word)

  • 项目

返回或设置应用于文档中章节标题的标题级别样式。 读/写 Long。

语法

expression。 HeadingLevelForChapter

表达 一个代表“PageNumbers”对象的变量。

备注

HeadingLevelForChapter 属性可以是一个介于 0 (零) 到 8，对应的标题级别 1 到 9。

在创建带有章节号的页码之前，文档标题必须应用多级的符号格式从 项目符号和编号对话框中使用的样式。 若要在 Visual Basic 中执行此操作，请使用 ApplyListTemplate 方法。

示例

本示例第一部分创建一个新文档，添加章标题和分页符，并使用的最后一个多级的符号格式的文档中 项目符号和编号 对话框中列出的格式。 该示例的第二部分中添加居中的页码包括章节号-到头;短划线分隔章节号和页码。 第一级标题用于章号，小写罗马数字用于页码。

Dim intLoop As Integer 
Dim hdrTemp As HeaderFooter 
 
Documents.Add 
For intLoop = 1 To 5 
 With Selection 
 .TypeParagraph 
 .InsertBreak 
 End With 
Next intLoop 
ActiveDocument.Content.Style = wdStyleHeading1 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(7) 
 
Set hdrTemp = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) 
 
With hdrTemp.PageNumbers 
 .Add PageNumberAlignment:=wdAlignPageNumberCenter 
 .NumberStyle = wdPageNumberStyleArabic 
 .IncludeChapterNumber = True 
 .HeadingLevelForChapter = 0 
 .ChapterPageSeparator = wdSeparatorEnDash 
End With

另请参阅

PageNumbers 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。