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

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

Wordでは、ドキュメント全体をPDFファイルに保存できますが、ドキュメントを分割してからページを個別のPDFファイルとして保存しようとしたことがありますか。 この記事では、この仕事をすばやく解決する方法を紹介します。

Word文書を分割し、VBAを使用して別のPDFファイルとして保存します

Word文書をページ/見出し1/改行ごとに分割してファイルを分割し、PDFとして保存します


Word文書を分割し、VBAを使用して別のPDFファイルとして保存します

ここで、VBAコードを使用すると、Word文書をページごとに直接分割して、個別のPDFファイルとして保存できます。

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードをコピーして、 モジュール 窓。

VBA:Wordを別のPDFとして保存

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

3。 押す F5 キーの[参照]ダイアログで、PDFファイルを配置するフォルダーを選択します。
doc 分割保存 pdf 1

4。 クリック OK、次に、開始と終了を分割するページ番号を入力します。

doc 分割保存 pdf 2 doc 分割保存 pdf 3

5。 クリック OK。 これで、ページは個別のPDFファイルとして保存されました。
doc 分割保存 pdf 4


Word文書をページ/見出し1/改行ごとに分割してファイルを分割し、PDFとして保存します

VBA コードに慣れていない場合は、アドイン ツールの使用を試すことができます – Kutools for Word、 その スプリット 機能を使用すると、改ページ、ページ番号、見出し 1、セクション区切り、n ページごと、および指定したカスタム ページ番号に基づいて Word 文書をページに分割し、 ドキュメントフォーマットコンバーター 分割された Word ドキュメントを PDF に一括変換します。

インストールした後 Kutools for Word、以下のようにしてください:(今すぐWord用のKutoolsを無料でダウンロードしてください!)

1.分割に変換するWord文書を有効にして、クリックします クツールズプラス > スプリット.

2。 の中に 分割ドキュメント ダイアログの [分割] セクションで、必要に応じて分割ルールを選択します。 次に、保存場所と分割ドキュメント ファイルのプレフィックスを指定します。 クリック Ok.

分割 セクションでは、6 つの分割タイプを提供します。 各分割タイプの詳細については、次の Web サイトをご覧ください。 機能紹介.

これで、分割されたドキュメントが指定された場所に保存されました。

3. ドキュメントを分割した後、 クツールズプラス > Doc / Docx.

4。 の中に ドキュメントフォーマットコンバーター ダイアログで選択 DocxをPDFに変換する フォーム フォーマット変換 ドロップダウン リストでプラス記号をクリックして、PDF に変換するドキュメントを含むファイルまたはフォルダーを追加し、必要に応じて他の設定を指定します (デフォルトでは、PDF ファイルはソース フォルダーに保存されますが、変更できます)。 )。 クリック Ok.

これで、Word 文書が PDF ファイルに変換されました。


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

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

以下のハイライトされた機能を詳しく見るか、 Kutools for Wordの全機能を探索するにはここをクリックしてください.

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

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

🧹 楽にお掃除一掃する 余分なスペース  /  セクションブレーク  /   すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  /  その他の削除ツールについては、削除グループにアクセスしてください

クリエイティブインサート: インセット 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  /  挿入グループで詳細をご覧ください

🔍 正確な選択: 特定のページを特定する  /  テーブル  /  シェイプ  /  見出し段落  /  選択グループを使用して簡単にナビゲートします

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

Kutools を使用して Word タスクを変換します。 👉 30 日間の試用版を今すぐダウンロード 🚀。

 
Comments (27)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very useful. I appreciate the work. Wish we can select how many pages for a split
This comment was minimized by the moderator on the site
Hi, the Split feature already support split specific pages and save as PDF only.
Choose Custom from the drop-down list in Split by section, then type the pasge numbers seperated by commas in the Page textbox, please see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/split-word-1.png?1702630242000
This comment was minimized by the moderator on the site
Kedves Napos!

Mostmár majdnem tökéletes a kód ahhoz, amit szeretnék. A 9. sorból szeretném a fájl nevét venni, de csak a 20. karaktertől.

Ez megoldható lenne?

Nagyon szépen köszönöm.

minimorisz
This comment was minimized by the moderator on the site
Hi, try this vba
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

You will rename the pdf file one by one in the poping dialog while applying the vba.
This comment was minimized by the moderator on the site
Hi Sunny,

any chance you know the code for the file name to be taken from the Third line of the file? or a specific location?

thank you!
This comment was minimized by the moderator on the site
Hi, try this vba
Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
End Sub

If there is empty in the third line, the pdf file will be named with number.
This comment was minimized by the moderator on the site
Kedves Napos!

Ez a kód már majdnem tökéletes, a fájl elnevezéséből még ki kellene valahogyan szedni a Az eszközökért felelős személy neve részt, és akkor csak a dolgozó neve maradna.
Köszönöm szépen!

minimorisz
This comment was minimized by the moderator on the site
Kérnék részlete leírást arról, hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben, akár VBA-val.
Köszönöm.
This comment was minimized by the moderator on the site
Hi,

This code spilts the mail merge into individual PDF's. But I need to split the first 2 pages as one doc. Means if there are 12 pages I need 6 PDF docs. A set of 2 into one PDF file. Right now this code splits it into 12 individual files. Please advise what should I change in the code.
This comment was minimized by the moderator on the site
Hi, SAROJ, I suggest that using tools in Kutools for Word, steps are the same as my reply for TEILLET
This comment was minimized by the moderator on the site
Bonjour,
Est-il possible de changer le module pour fractionner le fichier word en PDF toutes les 24 pages ?

Merci de votre aide
This comment was minimized by the moderator on the site
Hi, TEILLET, you can apply Kutools for Word's Split Document feature, and choose every n pages in the Split by section, then type 24 into Every n pages textbox, specify other settings, then click Ok, every 24 pages will be seperated as one single document. Then apply You should try Doc/Docx feature of Kutools for Excel, and choose Convert Docx to PDF from Format Convert section, and choose one location to save, click Ok, now every 24 page has been saved as PDF.
We have upgraded the features in Kutools for Word, but this article has not update, so the screenshots are old. We will update the contents soon, you can follow the steps to achieve.


Kutools for Word is free in 60-day, you may find more useful tool. Free Download
This comment was minimized by the moderator on the site
Very helpful and easy to use tip. Saved me a lot of time. Thank you so much.
This comment was minimized by the moderator on the site
Hello,When I click okay, the screen disappears but nothing is saved?Is there another setting I need to enable somewhere?
Also, the save to goes to my One Drive local folder, if that might be an issue?Thanks
This comment was minimized by the moderator on the site
Is there also a possibility to save the files not as Page 1 or Page 2, but with a name based on the content of the page?
This comment was minimized by the moderator on the site
I had able split document, need the guidance if i want to save the document with individual name
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations