Свойство PageNumbers.HeadingLevelForChapter (Word)
Возвращает или задает стиль уровня заголовка, применяемый к заголовкам глав в документе. Для чтения и записи, Long.
Синтаксис
выражение. HeadingLevelForChapter
Выражение Переменная, представляющая объект PageNumbers.
Замечания
Свойство HeadingLevelForChapter может быть числом от 0 (нуль) до 8, соответствующим уровням заголовка от 1 до 9.
Перед созданием номеров страниц, включающих номера глав, заголовки документов должны иметь нумерованный формат структуры, использующий стили из диалогового окна Маркеры и нумеровка . Для этого в Visual Basic используйте метод ApplyListTemplate .
Пример
В первой части этого примера создается новый документ, добавляются заголовки глав и разрывы страниц, а затем форматируется документ с помощью последнего нумерованного формата структуры, указанного в диалоговом окне Маркеры и нумеровка . Вторая часть примера добавляет в заголовок номера страниц по центру, включая номер главы; en dash разделяет номер главы и номер страницы. Первый уровень заголовка используется для номера главы, а строчные римские цифры — для номера страницы.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.