パソコン悪戦苦闘記録

Word文書を閉じるマクロ（VBA具体例の第２弾）

2019年11月05日

　前回は、Word文書を開く記事を書きました。
　⇒　こちらの記事をご覧ください。

　今回は文書を閉じるWordマクロを取り上げます。

【第１】　単体の文書を閉じる。
　単体の文書を閉じるときには、Documentオブジェクトに対してCloseメソッドを使います。
　文書を開くOpenメソッドは、Documentsコレクションに対して使用したのですが、文書を閉じるCloseメソッドは、単体のDocumentオブジェクトに対して使用します。両者で方針が一貫していないようにも感じられますが、まぁそんなもんだと覚えてしまいましょう。

　１　アクティブドキュメントを閉じる。
　アクティブドキュメントとは、ユーザーの操作の対象となっている文書のことです。
　そのマクロコードは、次のとおりとなります。

Sub 文書を閉じる１()
　　ActiveDocument.Close
End Sub

　２　文書名を指定して閉じる。
　次のマクロは、「Hoge.docx」を閉じるプロシージャです。
　Documentsプロパティの引数に文書名を指定すると、単体の文書を特定することができます。
　マクロコードは、次のとおりとなります。

Sub 文書を閉じる２()
　　Documents("Hoge.docx").Close
End Sub

　３　〇番目に開いた文書を閉じる。
　文書（Document）には開いた順番にインデックス番号が振られます。そして、そのインデックス番号を引数に指定すると「〇番目に開いた文書」という単体の文書が特定できます。
　２番目に開いた文書を閉じるマクロコードは、次のとおりです。

Sub 文書を閉じる３()
　　Documents(2).Close
End Sub
　
【第２】　確認メッセージを表示させずに文書を閉じる。
　文書に変更が加えらていると、閉じるときに保存確認メッセージが表示されます。
　しかし、VBAを使うと、この確認メッセージを出さずに文書を閉じることができます。
　確認メッセージを出さずに文書を閉じるには、Closeメソッドに引数「SaveCanges」を使います。
　SaveCanges引数にTrueを入れると、変更された文書を自動的に保存して閉じます。
　一方、SaveCanges引数にFalseを入れると、変更された文書を保存せずに閉じます。
　上記いずれの場合も、保存確認メッセージは出ません。

　１　文書を保存して閉じる。

Sub 文書を閉じる４()
　　Documents("Hoge.docx").Close SaveChanges:= True
End Sub
　
　２　文書を保存しないで閉じる。

Sub 文書を閉じる５()
　　Documents("Hoge.docx").Close SaveChanges:= False
End Sub