次の方法で共有

PageNumbers.ChapterPageSeparator プロパティ (Word)

  • [アーティクル]

チャプター番号とページ番号の間で使用される区切り文字を設定または返します。 WdSeparatorType の読み取り/書き込み。

構文

式。 ChapterPageSeparator

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

注釈

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

例

次の使用例の最初の部分では、新しい文書を作成、章のタイトルと、改ページと、[ 箇条書きと段落番号 ] ダイアログ ボックスで最後の段落番号付きの形式を使用してドキュメントが表示される形式を追加します。 この例の 2 番目の部分では、ヘッダーに中央揃えのページ番号 (チャプター番号を含む) を追加します。en dash は、チャプター番号とページ番号を区切ります。

Dim intLoop As Integer 
Dim hfTemp 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 hfTemp = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) 
With hfTemp.PageNumbers 
 .Add PageNumberAlignment:=wdAlignPageNumberCenter 
 .NumberStyle = wdPageNumberStyleArabic 
 .IncludeChapterNumber = True 
 .HeadingLevelForChapter = 0 
 .ChapterPageSeparator = wdSeparatorEnDash 
End With

関連項目

PageNumbers コレクション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。