【VBAリファレンス｜実務向け】Word実務の必須スキル！表紙を省いて2ページ目から「1」を開始する方法

ExcelVBA

2026.10.19

導入: なぜこの設定が必要なのか？

ビジネス文書やレポートにおいて、表紙（タイトルページ）にページ番号を振ってしまうと、見た目のプロフェッショナル感が損なわれてしまいます。しかし、ただ単に1ページ目の番号を削除するだけでは、2ページ目の番号が「2」から始まってしまい、ルール違反になることがあります。

今回のTipsを習得すれば、表紙は番号なし、本文の2ページ目から「1」と表示される正しい体裁を素早く整えることができます。書類のクオリティを一段階引き上げるために必須のテクニックです。

基礎知識: 「セクション」と「先頭ページのみ別指定」

Wordでページ番号を制御する際、最も重要なのが「セクション」という概念です。文書全体を一つの区切りとして扱うのではなく、ページ設定を個別に変えることで、特定のページだけルールを適用できます。今回は、Wordの標準機能である「先頭ページのみ別指定」を使い、高度な設定なしでスマートに解決する方法を解説します。

実装/解決策: 具体的な手順

Word 2016以降のバージョンで、最も手軽に設定する手順は以下の通りです。

1. [レイアウト]タブの右下にある[ページ設定]ダイアログボックス起動ツール（小さな矢印のアイコン）をクリックします。
2. 表示されたダイアログの[その他]タブを選択し、[先頭ページのみ別指定]にチェックを入れて[OK]を押します。これで1ページ目の番号が非表示になります。
3. 次に[挿入]タブから[ページ番号]を選択し、[ページ番号の書式設定]を開きます。
4. [開始番号]を「0」に設定して[OK]を押します。

ここでのポイントは、開始番号を「1」ではなく「0」にすることです。1ページ目が「0」となり、非表示に設定されているため、結果として2ページ目が「1」からカウントされる仕組みです。

サンプルプログラム: VBAでの自動化

実務で大量のWord文書を扱う場合、VBAでこの設定を自動化すると非常に効率的です。以下のコードは、アクティブな文書に対してこの設定を一括適用するマクロです。

Sub SetPageNumberStartFromSecondPage()
    ' 文書内のセクション情報を取得
    Dim sec As Section
    Set sec = ActiveDocument.Sections(1)
    
    ' 1. 先頭ページのみ別指定を有効にする
    sec.PageSetup.DifferentFirstPageHeaderFooter = True
    
    ' 2. ページ番号設定を「0」から開始する（2ページ目を1にするため）
    With ActiveDocument.PageSetup
        .StartingNumber = 0
        .RestartNumberingAtSection = True
    End With
    
    ' 3. ページ番号をフッターに挿入（ページ下部中央）
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
    MsgBox "設定完了：2ページ目からページ番号「1」を開始しました。", vbInformation
End Sub

応用・注意点: 現場で役立つ補足

注意点：
上記の設定を行っても番号が表示されない場合は、ヘッダー・フッター編集モードに入り、ページ番号が正しく挿入されているか（フィールドコードが残っているか）を確認してください。

応用テクニック：
もし途中のページから番号をリセットしたい場合は、[レイアウト]タブの[区切り]から「セクション区切り（現在の位置から開始）」を挿入し、そのセクションに対して個別に開始番号を設定してください。これにより、章ごとにページ番号をリセットするような複雑な文書作成も可能になります。

まずは手動で手順を覚え、定型業務であれば上記のVBAを活用して、作業時間を大幅に短縮してください。