【VBAリファレンス】Word作業効率を劇的に向上させる 開いている文書をすべて一括で閉じるVBAテクニック

概要：なぜ「すべて閉じる」機能がWordには必要なのか

日々の業務において、Wordを起動し、複数の資料や報告書を同時に開いて作業することは珍しくありません。しかし、作業が終了した際、タスクバーに並んだWordアイコンを一つずつ右クリックして「閉じる」を選択する作業は、非常に非効率であり、かつストレスが溜まるものです。特に、リサーチのために数十枚の文書を一度に開いている場合、この単純な繰り返し作業は集中力を削ぎます。

実は、Wordには「Shiftキーを押しながらファイルメニューをクリックしてすべて閉じる」といった隠しショートカットが存在しますが、安定した動作や、特定の文書だけを保存して閉じるといった高度な制御を行うには、VBA（Visual Basic for Applications）による自動化が最も確実です。本稿では、ベテランエンジニアの視点から、Wordの文書を一括で、かつ安全に閉じるためのプロフェッショナルなVBAコードとその実装方法を徹底解説します。

詳細解説：Documentsコレクションを制御するロジック

WordのVBAにおいて、現在開いているすべての文書を操作するためには、「Documents」コレクションを活用します。Documentsコレクションは、Wordアプリケーション内で開かれているすべてのDocumentオブジェクトの集合体です。

このコレクションをループ処理（For Each文）で走査することで、各文書に対して個別に「保存」や「閉じる」という命令を出すことができます。ここで重要なのは、単に閉じるだけでなく、「変更があった場合に保存するかどうか」という判断をどのように自動化するかという点です。

例えば、ユーザーの確認を介さずにすべて保存して閉じるのか、あるいは変更内容を破棄して閉じるのか。これらの挙動を制御するために、`Close`メソッドの引数である`SaveChanges`パラメータを正しく理解する必要があります。

`wdDoNotSaveChanges`（保存せずに閉じる）、`wdSaveChanges`（保存して閉じる）、`wdPromptToSaveChanges`（保存するか確認する）という定数を使い分けることで、自分のワークスタイルに合わせた最適な終了処理を構築できるのです。

サンプルコード：安全かつ確実に全文書を閉じる

以下に、現在開いているすべてのWord文書を対象に、確認ダイアログを表示せずに「保存して閉じる」ための実用的なコードを提示します。これを標準モジュールに貼り付けるだけで、即座に強力なツールとして機能します。

Sub CloseAllWordDocuments()
    ' 文書が一つも開かれていない場合の制御
    If Documents.Count = 0 Then
        MsgBox "現在、開いているWord文書はありません。", vbInformation, "終了処理"
        Exit Sub
    End If

    ' ユーザーに最終確認を求める（誤操作防止）
    Dim response As VbMsgBoxResult
    response = MsgBox("開いているすべての文書を保存して閉じますか？", vbYesNo + vbQuestion, "全文書一括クローズ")

    If response = vbYes Then
        Dim doc As Document
        ' Documentsコレクションをループ処理
        For Each doc In Documents
            ' 各文書を保存して閉じる
            ' wdSaveChanges: 変更を保存する
            ' wdOriginalDocumentFormat: 元の形式で保存
            doc.Close SaveChanges:=wdSaveChanges
        Next doc
        
        MsgBox "すべての文書を正常に閉じました。", vbInformation, "完了"
    Else
        MsgBox "処理をキャンセルしました。", vbExclamation, "キャンセル"
    End If
End Sub

実務アドバイス：エラーハンドリングとカスタマイズの極意

上記のコードは基本形ですが、実務の現場では「特定の文書だけは閉じたくない」というケースも多々あります。例えば、マクロを記述しているテンプレートファイルや、現在作業中のメイン文書は開いたままにしておきたい場合です。

そのような場合、ループの中で条件分岐を追加します。以下のようなロジックを組み込むのがベテランの定石です。

1. **名前で判定する**: `If doc.Name <> “メイン作業用.docx” Then` のように、特定のファイル名を除外する条件を加えます。
2. **読み取り専用属性を確認する**: `If Not doc.ReadOnly Then` とすることで、編集権限のない文書への無駄な保存処理を回避します。
3. **パスの有無を確認する**: 新規作成した未保存の文書（パスを持たない文書）に対しては、`doc.Path`プロパティが空であることを利用し、保存先を尋ねるダイアログを強制的に出すような分岐も有効です。

また、VBAを実行するためのショートカットキー（Alt + F8からマクロを選択し、オプションでショートカットを割り当てる）を設定しておくことで、キーボードから手を離さずに一瞬で全ての文書を片付けることが可能になります。これは生産性を極限まで高めるための必須ステップです。

まとめ：Word操作を自動化し、作業の質を向上させる

Wordの文書管理は、単なる事務作業ではなく、思考の整理のプロセスです。多くの文書を開きすぎると、メモリの消費だけでなく、作業者の視覚的なノイズとなり、集中力を低下させます。今回ご紹介したVBAによる一括クローズ処理を導入することで、作業の区切りを明確にし、次のタスクへスムーズに移行するリズムが生まれます。

VBAは、単なる「便利な機能」ではありません。プロフェッショナルとして、いかに「繰り返しの無駄」を排除し、創造的な仕事に時間を割くか。そのための強力な武器です。まずはこのコードを「Normal.dotm」に保存し、いつでも呼び出せるように準備しておくことから始めてください。日々の小さな積み重ねが、あなたの事務処理スピードを劇的に変えるはずです。

最後になりますが、マクロを適用する際は、必ず重要な文書のバックアップを取った状態でテストを行ってください。VBAは強力ですが、誤った設定で実行すると取り返しのつかないデータ損失を招く恐れもあります。この注意点さえ守れば、あなたのWordライフは、これまでとは比較にならないほど快適で効率的なものとなるでしょう。