複数の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ファイルにすばやく変換するのに役立ちます。 次のようにしてください。
1. Wordで、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に以下のVBAコードをモジュールウィンドウにコピーします。
VBAコード:複数のWord文書をWordのPDFファイルにバッチ変換します
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. [参照]ダイアログが表示されます。PDFファイルに変換するWordドキュメントが含まれているフォルダを選択し、[ OK
次に、選択したフォルダ内のすべてのWord文書が一度に個別のPDFファイルに変換されます。 スクリーンショットを参照してください:
Kutools for Wordを使用して、複数のWordドキュメントをPDFファイルにバッチ変換します
VBAコードの処理が難しい場合は、 ドキュメントを変換する の有用性 Kutools for Word この問題を解決します。
Kutools for Word :100以上の便利なWordアドインで、 制限なしで無料で試すことができます 60 日.
1。 クリック クツールズプラス > Doc / Docx。 スクリーンショットを参照してください:
2。 の中に ドキュメントフォーマットコンバーター ウィンドウでは、次のようにする必要があります。
3.次に、正常に変換されたドキュメントの数を示すダイアログボックスが表示されたら、[ OK ボタンを押して閉じます ドキュメントフォーマットコンバーター 窓。
これで、すべての.docx形式のドキュメントがpdfファイルに変換されます。
このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。
最高のオフィス生産性向上ツール
Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!
🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する / テキストを書き換える / 文書を要約する / 情報のお問い合わせ 文書に基づいて、すべて Word 内で
📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換 / ページを画像としてエクスポート / 複数のファイルを一度に印刷する...
✏ コンテンツ編集: バッチ検索と置換 複数のファイルにわたる / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...
🧹 楽にお掃除:振り払って 余分なスペース / セクションブレーク / すべてのヘッダー / テキストボックス / ハイパーリンク / その他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...
➕ クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 斜線テーブル / 方程式のキャプション / 画像キャプション / テーブルキャプション / 複数の写真 / 詳細については、 グループを挿入...
🔍 正確な選択: ピンポイント 特定のページ / テーブル / シェイプ / 見出し段落 / ナビゲーションを強化する 他には? 機能の選択...
⭐ スターの強化: あらゆる場所に素早く移動 / 繰り返しのテキストを自動挿入 / ドキュメントウィンドウをシームレスに切り替える / 11 変換ツール...