複数のWord文書をPDFファイルにバッチ変換する方法は?
Wordの[名前を付けて保存]機能を使用すると、Word文書をPDFファイルに簡単に変換できます。 しかし、フォルダ内のすべてのWord文書を一度に別々のPDFファイルに変換したい場合、どうすればそれを実現できますか? この記事では、複数のWord文書をWordでPDFファイルにバッチ変換するVBAコードを紹介します。
複数のWord文書をVBAでPDFファイルにバッチ変換する
Kutools for Wordを使用して、複数のWordドキュメントをPDFファイルにバッチ変換します
複数のWord文書をVBAでPDFファイルにバッチ変換する
次の VBA コードを使用すると、フォルダー内のすべての Word 文書を一度に PDF ファイルにすばやく変換できます。次の手順に従います。
- Wordでは、 Altキー+ F11 を開く アプリケーション向け Microsoft Visual Basic 窓。
- アプリケーション向け 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
- イベント F5 コードを実行します。
- A ブラウズ ダイアログがポップアップ表示されます。PDFに変換したいWord文書を含むフォルダを選択し、 OK.
選択したフォルダー内のすべての Word 文書が個別の PDF ファイルに変換されます。スクリーンショットを参照してください:
Kutools for Wordを使用して、複数のWordドキュメントをPDFファイルにバッチ変換します
VBAコードの処理が難しい場合は、 ドキュメントを変換する の有用性 Kutools for Word この問題を解決します。
1。 クリック クツールズプラス > Doc / Docx。 スクリーンショットを参照してください:
2。 の中に ドキュメントフォーマットコンバーター ウィンドウでは、次のようにする必要があります。
3.次に、正常に変換されたドキュメントの数を示すダイアログボックスが表示されたら、[ OK ボタンを押して閉じます ドキュメントフォーマットコンバーター 窓。
これで、すべての.docx形式のドキュメントがpdfファイルに変換されます。
このユーティリティの無料トライアルをご希望の場合は、 Kutools for Wordをダウンロード まず、上記の手順に従って操作を適用します。
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...
✏ コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その他の取り外しツールについては、 削除します グループ...
➕ クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...
🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...
⭐ スターの強化: 任意の場所に移動 / 繰り返しテキストの自動挿入 / ドキュメントウィンドウ間の切り替え / 11 変換 ツール...
最高のオフィス生産性向上ツール
Kutools for Word - Word 用の 100 以上のツール
- 🤖 Kutools AIの機能: 生成する, リライト, まとめる, 翻訳します ドキュメント / すぐに回答を得る / ポーランド語文書(保存形式)
- 📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / PDFへの一括変換
- ✏ コンテンツ編集: バッチ検索と置換 / すべての画像のサイズを変更する
- 🧹 楽にお掃除: 余分なスペースを削除する / セクション区切りを削除する
- ➕ クリエイティブインサート: 千単位区切り記号を挿入 / チェックボックスを挿入する / QRコードを作成する