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

複数のWord文書をPDFファイルにバッチ変換する方法は?

作者: シルヴィア 最終更新日:2024年09月12日

Wordの[名前を付けて保存]機能を使用すると、Word文書をPDFファイルに簡単に変換できます。 しかし、フォルダ内のすべてのWord文書を一度に別々のPDFファイルに変換したい場合、どうすればそれを実現できますか? この記事では、複数のWord文書をWordでPDFファイルにバッチ変換するVBAコードを紹介します。

複数のWord文書をVBAでPDFファイルにバッチ変換する
Kutools for Wordを使用して、複数のWordドキュメントをPDFファイルにバッチ変換します


複数のWord文書をVBAでPDFファイルにバッチ変換する

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

  1. Wordでは、 Altキー+ F11 を開く アプリケーション向け Microsoft Visual Basic 窓。
  2. アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次の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

    上記のコードを貼り付けたモジュールウィンドウ

  3. イベント F5 コードを実行します。
  4. A ブラウズ ダイアログがポップアップ表示されます。PDFに変換したいWord文書を含むフォルダを選択し、 OK.
  5. 参照ダイアログボックス

選択したフォルダー内のすべての Word 文書が個別の PDF ファイルに変換されます。スクリーンショットを参照してください:

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


Kutools for Wordを使用して、複数のWordドキュメントをPDFファイルにバッチ変換します

VBAコードの処理が難しい場合は、 ドキュメントを変換する の有用性 Kutools for Word この問題を解決します。

Kutools for Word, AI搭載 🤖、タスクを簡素化する 100 以上の便利な機能を提供します。

1。 クリック クツールズプラス > Doc / Docx。 スクリーンショットを参照してください:

リボンの Kutools Plus タブの Doc/Docx ボタン

2。 の中に ドキュメントフォーマットコンバーター ウィンドウでは、次のようにする必要があります。

2.1)PDFに変換するドキュメントが含まれているフォルダを選択します ソースファイルフォルダ セクション;
2.2選択 docxをpdfに変換する フォーマット変換 ドロップダウンリスト;
2.3)デフォルトでは、 ソースと同じ宛先パス ボックスがチェックされています。 変換されたすべてのPDFファイルを同じフォルダーに配置する場合は、このオプションを選択したままにします。
PDFファイルとソースドキュメントを分離する場合は、チェックを外す必要があります ソースと同じ宛先パス ボックスをクリックし、新しいフォルダを選択してPDFファイルを に保存 ボックス;
2.4)をクリックします 開始 ボタン。 スクリーンショットを参照してください:

ドキュメントフォーマットコンバータウィンドウ

3.次に、正常に変換されたドキュメントの数を示すダイアログボックスが表示されたら、[ OK ボタンを押して閉じます ドキュメントフォーマットコンバーター 窓。

これで、すべての.docx形式のドキュメントがpdfファイルに変換されます。

このユーティリティの無料トライアルをご希望の場合は、 Kutools for Wordをダウンロード まず、上記の手順に従って操作を適用します。

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

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

🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...

📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...

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

🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その​​他の取り外しツールについては、 削除します グループ...

クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...

🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...

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

Word リボンの Kutools および Kutools Plus タブ
👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードしてください! 🚀