【必見】Word VBAでPDFを一括出力する方法と便利な自動化テクニック

2024.10.11

Wordでの作業を効率化したい方必見！Word VBAを活用してPDF出力を自動化する具体的な方法をわかりやすく解説します。さらに、他の自動化手法や注意点もカバーし、初心者から中級者まで対応できる内容です。

結論
Word VBAでPDF出力を行う具体的な手順
1. 単一ファイルのPDF出力
2. 複数ファイルの一括PDF出力
知っておかないといけない注意点
よくある質問
1. VBAを使わずにPDF出力を自動化する方法はありますか？
2. VBAでPDF化するとファイルサイズが大きくなることがあります。対策方法は？
まとめ

結論

Word VBAを活用すれば、手動でPDF出力する手間を省け、業務効率が格段に向上します。例えば、VBAで複数ファイルを一括でPDF出力できるので、時間の節約が可能です。また、Word VBAを使うことで、特定のフォルダ内の全ファイルを自動でPDF化することもできます。

Word VBAでPDF出力を行う具体的な手順

Word VBAでPDF出力を行うための手順を以下に解説します。今回は「複数ファイルを一括でPDF出力」する方法と「単一ファイルを自動でPDF化」する方法の2つをご紹介します。

単一ファイルのPDF出力

Wordを開き、「Alt + F11」を押してVBAエディタを起動。
新しいモジュールを挿入し、以下のコードを入力します。

/* 数式 */

Sub WordToPDF()

    Dim doc As Document

    Dim savePath As String

    savePath = "C:\Users\YourName\Documents\output.pdf"

    Set doc = ActiveDocument

    doc.ExportAsFixedFormat OutputFileName:=savePath, _

        ExportFormat:=wdExportFormatPDF

    MsgBox "PDF出力が完了しました！"

End Sub

PDF出力先のパスを必要に応じて変更してください。

複数ファイルの一括PDF出力

特定のフォルダにある全ファイルをPDFに変換するコードを入力します。

/* VBAコード */

Sub BatchWordToPDF()

    Dim doc As Document

    Dim filePath As String

    Dim folderPath As String

    folderPath = "C:\Users\YourName\Documents\WordFiles\"

    filePath = Dir(folderPath & "*.docx")

    Do While filePath <> ""

        Set doc = Documents.Open(folderPath & filePath)

        doc.ExportAsFixedFormat OutputFileName:=folderPath & Replace(filePath, ".docx", ".pdf"), _

            ExportFormat:=wdExportFormatPDF

        doc.Close False

        filePath = Dir

    Loop

    MsgBox "全ファイルのPDF出力が完了しました！"

End Sub

補足としては folderPathで指定されたフォルダ内の全てのWord文書をPDFに一括変換します。