PDF自動変換 2026年4月10日（金）

今日はほぼ1日中、山田耕筰童謡100の歌詞をワードに入力していました。改行や句読点などもできる限り正確に。

23時過ぎに完了したけれど、それをネット上に公開するにはPDF変換が必要です。100曲全部変換するの面倒だなあ～、あ、Geminiちゃんに聞いてみよう！

すぐ教えてくれました。

以下のマクロを使って2分以内、今日中に完了しました！

皆様もぜひお試しください。

近日中に山田耕筰童謡100の歌詞、公開します。        

100個ものファイルを一つずつ変換するのは大変な作業ですね。一括で（バッチ処理）素早く変換する方法はいくつかあります。状況に合わせて最適なものを選んでみてください。

---

1. Wordの標準機能を使う（最も手軽）

Windows版のWord（Office 365など）には、複数のファイルを一括でエクスポートする機能はありませんが、「エクスプローラー」から印刷機能を利用する裏技があります。

1. エクスプローラーで変換したいファイルをすべて選択（Ctrl + A）します。

2. 選択したファイルの上で右クリックし、**「印刷」**を選択します。

3. 通常使うプリンターを「Microsoft Print to PDF」に設定していれば、順次PDFとして保存されます。

   注意点: ファイル数が多いとPCが一時的に重くなることや、保存先を一つずつ指定する必要がある場合があります。

---

西野真理の使った方

2. Wordの「マクロ (VBA)」を活用する（完全自動）

一度にすべてのファイルを自動で変換したい場合は、Word内でマクロを走らせるのが最も確実です。

手順:

1. Wordを開き、Alt + F11 でVBAエディタを開きます。

2. 「挿入」→「標準モジュール」をクリックし、以下のコードを貼り付けます。

3. F5 キーで実行すると、指定したフォルダ内のWordファイルがすべてPDF化されます。

VBA

Sub BatchExportPDF()
    Dim objDoc As Document
    Dim strFile As String, strPath As String
    ' フォルダを選択
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then strPath = .SelectedItems(1) & "\" Else Exit Sub
    End With
    
    strFile = Dir(strPath & "*.doc*")
    Do While strFile <> ""
        Set objDoc = Documents.Open(strPath & strFile)
        objDoc.ExportAsFixedFormat _
            OutputFileName:=strPath & Replace(strFile, ".docx", ".pdf"), _
            ExportFormat:=wdExportFormatPDF
        objDoc.Close SaveChanges:=False
        strFile = Dir
    Loop
    MsgBox "変換が完了しました！"
End Sub