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

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

Microsoft Word文書を使用している間、組み込みの[名前を付けて保存]機能を使用して、各ページを個別のPDFファイルとしてXNUMXつずつ保存できます。 ただし、何百ものページを分割して個別のPDFファイルとして保存する必要がある場合は、どうすればよいでしょうか。 この記事では、この問題をすばやく解決する方法を説明します。

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

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

以下のVBAコードは、ドキュメント内の各ページを個別のpdfファイルとして同時にすばやく保存するのに役立ちます。 次のようにしてください。

1.各ページまたは特定のページをPDFファイルとして保存するドキュメントを開き、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、 以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード：各ページを別々のPDFファイルとしてWord文書に同時に保存します

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

3。 プレス F5 コードを実行するためのキー。

4。 の中に ブラウズ ウィンドウで、PDFファイルを保存するフォルダを選択し、をクリックします OK ボタン。 スクリーンショットを参照してください：

5.最初に Kutools for Word ダイアログボックスで、ドキュメントの開始ページ番号をテキストボックスに入力し、[ OK.

6番目に Kutools for Word ダイアログボックスで、ドキュメントの最後のページ番号を入力し、をクリックします [OK]をクリックします。 スクリーンショットを参照してください：

Note：4、5、6ページなど、複数の連続したページを個別のPDFファイルとしてドキュメントに保存する場合は、上記の4つのダイアログボックスに6とXNUMXを個別に入力してください。

コードを実行した後、手順4で選択した指定のフォルダーに移動してください。以下のスクリーンショットに示すように、すべてのページが分割され、個別のpdfファイルとして保存されていることがわかります。

ドキュメントの各ページを分割して、個別の新しいドキュメントとして保存します。

　 分割ドキュメント の有用性 Kutools for Excel 以下のスクリーンショットに示すように、現在のドキュメントの各ページを個別の新しいドキュメントとして簡単に分割して保存するのに役立ちます。 ダウンロードして今すぐ試してみてください！ (60-日フリートレイル）

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

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能！

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除：振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

➕ クリエイティブインサート：挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択： ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には？ 機能の選択...

⭐ スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし！ 🚀
 
Comments (26)
Rated 5 out of 5 · 3 ratings
Ridwan
Ridwan
This comment was minimized by the moderator on the site
How to set output File Name base on footer each page?
Reply
0
0
Megan Olson
Megan Olson
This comment was minimized by the moderator on the site
Hello,

I was wondering if there was a way to have it pull the name for the PDF from the word doc. Example: instead of Page_01, have a pull an account number that was the 3rd line down in the word document?
Reply
0
0
Piotr
Piotr
This comment was minimized by the moderator on the site
Hi
what if I need to set specific name for each splited PDF.
This should be taken from WORD text - it is serial korespondece- all pages have same format
Can you advise?
Reply
0
0
JW
JW
This comment was minimized by the moderator on the site
Hi, how would you save each pdf page as a name that can be found from within each word page being exported?
Reply
0
0
Aita
Aita
This comment was minimized by the moderator on the site
Hi, how will change the code for mac os?
Reply
0
0
Just
Just
This comment was minimized by the moderator on the site
Is there a way to save per 2 pages?

Ex. save page 1/2 in Page_1.pdf
save page 3/4 in Page_2.pdf

Thanks!
Reply
0
0
Andrea
Andrea     Just
This comment was minimized by the moderator on the site
im wondering the same thing! please help!
Reply
0
0
Andy
Andy     Just
This comment was minimized by the moderator on the site
Wondering the same
Reply
0
0
vandy
vandy
This comment was minimized by the moderator on the site
10x :) this was realy helpful!!!
Reply
0
0
Rated 5 out of 5
samir
samir
This comment was minimized by the moderator on the site
Thanks for this, this is great. i was wondering if you have a way of naming my pdf files differently per each extract not only Page_1.pdf.

Thanks
Reply
0
0
crystal
crystal     samir
This comment was minimized by the moderator on the site
Hi samir,
How would you like to name these pdf files? Please give me an example.
Reply
Report
0
0
Camila
Camila     crystal
This comment was minimized by the moderator on the site
Like saving each document with a different name, not just Page_1.pdf and so on.
Reply
0
0
crystal
crystal     Camila
This comment was minimized by the moderator on the site
Hi Camila,
The following VBA code can help you solve the problem.
Note: You need to specify a different name in this line: xFileName = "AA; BB; CC; DD". Here AA, BB and CC are the names for the PDF files.
Please change them to meet your needs. You can add more names and separate them by semicolon. To mention that the number of names specified must match the number of pages you expored. And the PDF files will be named in order of the specified names in the code.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    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
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    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 & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
Reply
Report
0
0
r
r
This comment was minimized by the moderator on the site
Добрый день!
Есть ли возможность сохранить из ворд файла(используя слияние) в пдф файл - Решения собственников на общее собрание.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Reply
0
0
crystal
crystal     r
This comment was minimized by the moderator on the site
Hi,
Sorry I don't understand what you mean. You may need to attach a screenshot or a sample file to describe the problem you encountered more clearly.
Reply
Report
0
0
F
F
This comment was minimized by the moderator on the site
Thanks for the script, it has also saved me a lot of work in exporting pages as pdf!
Reply
0
0
Rated 5 out of 5
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations