次の方法で共有

PageNumbers.HeadingLevelForChapter プロパティ (Word)

  • [アーティクル]

文書の章タイトルに適用される見出しレベルのスタイルを設定または返します。 読み取り/書き込みが可能な Long です。

構文

式。 HeadingLevelForChapter

式 'PageNumbers' オブジェクトを表す変数。

注釈

HeadingLevelForChapter プロパティでは、8、0 (ゼロ) から 9 でレベル 1 の見出しに対応する数値を指定できます。

章番号を含むページ番号を作成する前に、文書の見出しに、[ 箇条書きと段落番号] ダイアログ ボックスからスタイルを使用する段落番号の形式が必要です。 Visual Basic には、 ApplyListTemplate メソッドを使用します。

例

次の使用例の最初の部分では、新しい文書を作成、章のタイトルと、改ページと、[ 箇条書きと段落番号 ] ダイアログ ボックスで最後の段落番号付きの形式を使用してドキュメントが表示される形式を追加します。 例の 2 番目の部分箇条書きと段落番号のヘッダーは、段落番号を含む半角ダッシュは、章番号とページ番号を区切ります。 章番号の最初の見出しレベルを使用し、ページ番号を小文字のローマ数字を使用します。

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 のサポートおよびフィードバックを参照してください。