PageNumbers.Add メソッド (Word)
セクション内のヘッダーまたはフッターに追加するページ番号を表す PageNumber オブジェクトを返します。
構文
式。Add (PageNumberAlignment, FirstPage)
expression 必須です。 PageNumbers オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
PageNumberAlignment | オプション | バリアント型 | WdPageNumberAlignment クラスの定数を使用できます。 |
FirstPage | オプション | バリアント型 | False に設定すると、先頭ページのヘッダーとフッターが、それ以降のページのヘッダーとフッターとは別の指定になります。 引数 FirstPage を False に設定すると、先頭ページにページ番号が付けられません。 この引数を省略すると、設定は DifferentFirstPageHeaderFooter プロパティの値に従います。 |
注釈
HeaderFooter オブジェクトの LinkToPrevious プロパティを True に設定すると、文書全体をとおして、特定のセクションから次のセクションへ、連続するページ番号が付けられます。
例
次の使用例は、作業中の文書で、最初のセクションのプライマリ フッターにページ番号を追加します。
With ActiveDocument.Sections(1)
.Footers(wdHeaderFooterPrimary).PageNumbers.Add _
PageNumberAlignment:=wdAlignPageNumberLeft, _
FirstPage:=True
End With
次の使用例は、作業中の文書のヘッダーにページ番号を作成し、その書式を設定します。
Set myPgNum = ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary) _
.PageNumbers.Add(PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:= True)
myPgNum.Select
With Selection.Range
.Italic = True
.Bold = True
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。