メインコンテンツへスキップ

Word文書の各ページを個別のPDFファイルとして保存するにはどうすればよいですか?

Author: Siluvia Last Modified: 2025-05-23

Microsoft Wordでは、組み込みの「名前を付けて保存」機能を使用して、オプションダイアログでページ番号を指定することで、各ページを手動で個別のPDFとして保存できます。ただし、数百ページある大規模な文書を扱っている場合、これを手動で行うのは時間がかかることがあります。この記事では、すべてのページを個別のPDFファイルとして迅速に保存する方法を紹介します。

VBAコードを使用して各ページを一括で個別のPDFファイルとして保存する


VBAコードを使用して各ページを一括で個別のPDFファイルとして保存する

以下のVBAコードを使用すると、Word文書の各ページを自動的に個別のPDFファイルとして保存できます。手順は次のとおりです:

  1. 処理したいWord文書を開きます。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
  2. Visual Basicウィンドウで、「挿入」>「モジュール」をクリックし、次のVBAコードをモジュールウィンドウに貼り付けます:
    Sub SaveAsSeparatePDFs()
    'Updated by Extendoffice 20180906
        Dim I As Long
        Dim xStr As String
        Dim xPathStr As Variant
        Dim xDictoryStr As String
        Dim xFileDlg As FileDialog
        Dim xStartPage, xEndPage As Long
        Dim xStartPageStr, xEndPageStr As String
        Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
        If xFileDlg.Show <> -1 Then
            MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        xPathStr = xFileDlg.SelectedItems(1)
        xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
        xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
        If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
            MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        xStartPage = CInt(xStartPageStr)
        xEndPage = CInt(xEndPageStr)
        If xStartPage > xEndPage Then
            MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
            xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
        End If
        For I = xStartPage To xEndPage
            ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
            wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
            False, False, wdExportCreateHeadingBookmarks, True, False, False
        Next
    End Sub
    VBA window with Insert > Module selected and VBA code copied into the Module window
  3. F5キーを押してコードを実行します。
  4. 表示される参照ウィンドウで、PDFファイルを保存するフォルダーを選択し、「OK」をクリックします。
    Browse window
  5. 最初の「Kutools for Word」ダイアログボックスで、開始ページ番号を入力し、「OK」をクリックします。
    Kutools for Word dialog box with a text box for entering the start page number
  6. 2番目の「Kutools for Word」ダイアログボックスで、終了ページ番号を入力し、「OK」をクリックします。
    Second Kutools for Word dialog box with a text box for entering the last page number

    注: 例えば、連続した数ページ(4ページ目、5ページ目、6ページ目)を保存する場合、2つのダイアログボックスにそれぞれ「4」と「6」を入力するだけです。

スクリプトが実行された後、ステップ4で選択したフォルダーに移動してください。指定した各ページが個別のPDFファイルとして保存されていることがわかります:

Pages are split and saved as individual PDF files

Word文書を簡単に複数の文書に分割
Split Documentユーティリティを使用して、Word文書を簡単に複数の文書に分割します。手動でコピーして貼り付ける代わりに、このツールを使用すると、ページ見出し 1改ページ、またはセクション区切りに基づいて文書を分割できます。これにより、効率が大幅に向上します。
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: 数百の便利なツールでWordの操作性を向上させましょう。今すぐダウンロードして違いを実感してください!

最高のオフィス生産性ツール

Kutools for Word - Wordの体験を100以上の素晴らしい機能で向上させましょう!

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ (形式を保持) / スーパー トランスレート (形式を保持) / AI編集 / AI校正...

📘 文書のマスタリー: ページの分割 / 文書の結合 / 様々な形式で選択をエクスポート (PDF/TXT/DOC/HTML...) / 一括PDF変換...

内容の編集: 複数ファイルにわたる一括検索と置換 /すべての画像をリサイズ / 表の転置 / 表をテキストに変換...

🧹 簡単なクリーンアップ:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃 / その他の削除ツールは削除グループへ...

創造的な挿入: 千の区切りを挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 挿入グループでさらに発見...

🔍 精密な選択: 特定のページ / / 図形 / 見出し段落を特定 / より多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の場所に移動 / 繰り返しテキストを自動挿入 / 文書ウィンドウ間を切り替え /11 変換ツール...

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみませんか?今すぐKutools for Wordをダウンロード!🚀