複数のWord文書の一括印刷するマクロ

ChatGPTを使って、「Word文書の一括印刷するマクロ」を組みました。便利に使っています。

フォルダ内にある複数のWord文書を自動で順番に印刷するマクロです。
Wordを一つずつ開いて印刷する手間を省くことができます。

以下のVBAコードを、Wordのマクロに登録して使って下さい。

Sub PrintAllWordDocumentsInCurrentFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim wordApp As Object
    Dim wordDoc As Object

    ' カレントフォルダ（このExcelブックがある場所）を取得
    folderPath = ThisWorkbook.Path & "\"

    ' Wordアプリケーションを起動（既に起動していない場合）
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    If wordApp Is Nothing Then
        Set wordApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0

    wordApp.Visible = False ' Wordを非表示に

    ' フォルダ内のWordファイルを繰り返し処理
    fileName = Dir(folderPath & "*.doc*")
    Do While fileName <> ""
        Set wordDoc = wordApp.Documents.Open(folderPath & fileName, ReadOnly:=True)
        wordDoc.PrintOut
        wordDoc.Close False
        Set wordDoc = Nothing
        fileName = Dir()
    Loop

    wordApp.Quit
    Set wordApp = Nothing

    MsgBox "すべてのWordファイルを印刷しました。", vbInformation
End Sub