複数のWord文書を一括でPDFファイルに変換する方法

Author: Siluvia Last Modified: 2025-05-23

Wordの「名前を付けて保存」機能を使用して、単一のWord文書をPDFに変換するのは簡単です。しかし、フォルダー内のすべてのWord文書を一度に個別のPDFファイルに変換する必要がある場合はどうすればよいでしょうか？このガイドでは、Wordで複数のWord文書をPDFファイルに一括変換する方法を紹介します。

VBAを使用して複数のWord文書を一括でPDFファイルに変換
 Kutools for Wordを使用して複数のWord文書を一括でPDFファイルに変換

VBAを使用して複数のWord文書を一括でPDFファイルに変換

以下のVBAコードを使用すると、フォルダー内のすべてのWord文書を一度にPDFファイルに迅速に変換できます。次の手順に従ってください：

Wordで Alt + F11 を押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

エディターで、「挿入」>「モジュール」をクリックし、次のVBAコードをモジュールウィンドウにコピー＆ペーストします。

Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
    Dim xIndex As String
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xNewName As String
    Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.*", vbNormal)
    While xFileName <> ""
        If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
            xIndex = InStr(xFileName, ".") + 1
            xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
            Documents.Open FileName:=xFolder & xFileName, _
                ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                wdOpenFormatAuto, XMLTransform:=""
            ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=True, UseISO19005_1:=False
            ActiveDocument.Close
        End If
        xFileName = Dir()
    Wend
End Sub

Module window with the above code pasted

コードを実行するために F5 を押します。
「参照」ダイアログが表示されます。PDFに変換したいWord文書が含まれているフォルダーを選択し、「OK」をクリックします。

選択したフォルダー内のすべてのWord文書が個別のPDFファイルに変換されます。

All Word documents in the selected folder are converted to separate PDF files

Kutools for Wordを使用して複数のWord文書を一括でPDFファイルに変換

VBAコードが扱いにくい場合、Kutools for Wordの「文書変換」機能を試すことができます。このツールは、Wordでの手動操作と比較して、プロセスを簡素化し、より効率的かつ使いやすくします。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

「Kutools Plus」>「Doc/Docx」をクリックします。
「文書形式変換」ウィンドウで、次の手順に従います：
1. 「形式変換」ドロップダウンメニューから「DocxをPdfに変換」を選択します。
2. クリックします。文書を追加するために：
  個別の文書を追加するには「ファイル」を選択します。
  
  特定のフォルダーからすべての文書を追加するには「フォルダー」を選択します。
3. デフォルトでは、PDFファイルはソースファイルと同じ場所に保存されます。場所を変更するには、「参照」ボタンをクリックします。新しい宛先を選択します。
4. オプションで、「変換後に元のファイルを削除」チェックボックスをオンにして、PDF作成後に元のファイルを削除します。
5. オプションで、「元のファイルの変更日を保持」チェックボックスをオンにして、元のファイルのメタデータを保持します。
6. すべての設定が完了したら、「OK」をクリックします。