概要：Wordの「すべて閉じる」問題とVBAによる解決策
日々の業務において、Wordで複数の文書を同時に開いて作業することは珍しくありません。リサーチ資料、契約書の下書き、日報のテンプレートなど、気付けばタスクバーがWordのアイコンで埋め尽くされていることはないでしょうか。Wordには標準機能として「すべて閉じる」コマンドが存在しますが、これはShiftキーを押しながらファイルタブをクリックするという隠し機能に近い操作であり、直感性に欠けるだけでなく、保存の確認ダイアログが連続して表示されることで、かえってストレスを感じることも少なくありません。
本記事では、Word VBA（Visual Basic for Applications）を活用して、開いている全ての文書を制御し、一括で、あるいは条件付きで効率的に閉じるための高度なテクニックを解説します。プロフェッショナルな現場では、単に閉じるだけでなく「変更がある場合のみ保存して閉じる」「特定の名前が含まれる文書以外は閉じる」といった柔軟な制御が求められます。VBAをマスターすることで、あなたのWord環境は劇的に整理され、生産性は飛躍的に向上するはずです。
詳細解説：Documentsコレクションを使いこなす
Word VBAにおいて、現在開いている文書を操作するための基盤となるのが「Documentsコレクション」です。VBAでは、このコレクションをループ処理（For Each…Next）で回すことで、個々のドキュメントオブジェクトに対してプロパティやメソッドを適用します。
まず理解すべきは、Documentオブジェクトの「Closeメソッド」です。このメソッドには主に2つの引数があります。
1. SaveChanges: 変更を保存するかどうか（wdDoNotSaveChanges, wdSaveChanges, wdPromptToSaveChanges）
2. OriginalFormat: ファイル形式を維持するかどうか
多くのユーザーが陥る罠は、全てを閉じる際に「保存するかどうか」の確認ダイアログが連続して表示されることです。VBAを用いれば、このダイアログを抑制し、すべて保存して閉じる、あるいは変更を破棄して強制終了するといった処理を、わずか数行のコードで実現可能です。
また、閉じるべき対象を判定するロジックを組み込むことも重要です。「現在アクティブな文書以外を全て閉じる」という処理は、集中して作業を行う際に非常に有効です。開いている文書が読み取り専用なのか、あるいは特定のフォルダに保存されているものなのかを属性で判断し、安全に閉じるための「条件分岐」を組み込むことが、実務における安全性を高める鍵となります。
サンプルコード：実務で使える一括終了マクロ
以下に、実務で頻繁に使用する3つのパターンを紹介します。これらを標準モジュールに保存し、クイックアクセスツールバーに登録することで、ワンクリックでWord環境をリセットできるようになります。
' パターン1：開いている全ての文書を保存して閉じる
Public Sub CloseAllDocumentsAndSave()
Dim doc As Document
' 全ての文書を順に処理
For Each doc In Documents
doc.Close SaveChanges:=wdSaveChanges
Next doc
End Sub
' パターン2：変更を全て破棄して、確認なしで強制終了する
Public Sub CloseAllDocumentsForce()
Dim doc As Document
' 警告を表示させない設定
Application.DisplayAlerts = wdAlertsNone
For Each doc In Documents
doc.Close SaveChanges:=wdDoNotSaveChanges
Next doc
' 設定を元に戻す
Application.DisplayAlerts = wdAlertsAll
End Sub
' パターン3：現在アクティブな文書「以外」をすべて閉じる
Public Sub CloseOthersKeepActive()
Dim doc As Document
Dim activeDocName As String
activeDocName = ActiveDocument.Name
For Each doc In Documents
If doc.Name <> activeDocName Then
' 変更がある場合は保存を促す
doc.Close SaveChanges:=wdPromptToSaveChanges
End If
Next doc
End Sub
実務アドバイス：エラーハンドリングと安全性の確保
VBAで文書を操作する際、最も注意すべきは「意図しないドキュメントまで閉じてしまう」リスクです。特に、他のアドインやテンプレートがバックグラウンドで隠しウィンドウとして開いている場合、それらを誤って閉じてしまうとWordの動作に支障をきたす可能性があります。
実務でコードを運用する際は、以下の対策を講じることを強く推奨します。
1. 読み取り専用属性の確認:
`doc.ReadOnly` プロパティを確認し、読み取り専用のファイルであれば保存確認をスキップするなどの分岐を入れましょう。
2. エラーハンドリング（On Error Resume Next）の活用:
文書が保護されている場合や、一時的なネットワーク障害で保存に失敗するケースに備え、`On Error Resume Next` を適切に使用し、エラーが発生した場合はイミディエイトウィンドウにログを出すなど、プログラムが途中で止まらない工夫が必要です。
3. ユーザーへのフィードバック:
処理が完了した際に、`MsgBox` で「〇件の文書を閉じました」と通知することで、ユーザーは現在の状態を正しく把握できます。特に大量のファイルを扱う場合、この「完了通知」があるだけで安心感が大きく変わります。
また、このマクロを「Normal.dotm」に保存しておくことで、どのWordファイルを開いていても即座にこの機能を利用できるようになります。リボンをカスタマイズして、専用のタブを作成し、そこに「全終了」ボタンを配置するのが、ベテランのWord使いとしてのスマートな設定です。
まとめ：VBAがもたらす「整理された思考環境」
Wordで文書を閉じるという単純な作業一つをとっても、VBAを活用することで、それは「作業の区切りを明確にする儀式」へと昇華します。タスクが溜まり、複数のウィンドウが重なり合う環境は、人間の集中力を削ぐ大きな要因となります。
今回紹介したコードは、単なる自動化ツールではありません。あなたの作業環境を常にクリーンに保ち、次の仕事へスムーズに移行するための「環境整備ツール」です。まずは、最もシンプルな「すべて保存して閉じる」マクロから試してみてください。一度その快適さを味わえば、もう手動でウィンドウを閉じる作業には戻れないはずです。
VBAは、Wordの標準機能を補完し、あなた自身の思考プロセスに合わせたカスタマイズを可能にする強力な武器です。今回学んだ「Documentsコレクション」の操作を足がかりに、さらに複雑な文書管理の自動化にもぜひ挑戦してください。技術を身につけることは、時間を味方につけることであり、それは何よりの投資となります。あなたのWordライフが、より効率的でストレスフリーなものになることを確信しています。
