質問: ワード2000でマクロを組む マクロ初心者で、ワード2000を使っています。テキストボックス フォームフィールドを使って作成したフォームで、2つのフィールド(ブックマーク名を ”text1” と “text2” と設定)のうちのどちらかに入力がない場合は、メッセージを表示し、ファイルを保存・閉じることができないようにするマクロを組みたいのですが、どうしたらよいのでしょうか。どなたか教えていただけないでしょうか。
回答: 「閉じるとき」のイベントを取得するのがカギですね。 新規クラスモジュール(名前:eventclassmodule)に下記を記述 public withevents app as word.application private sub app_documentbeforeclose(byval doc as document, cancel as boolean) dim a as variant a = msgbox("この文書を閉じてもよろしいですか?", vbyesno) if a = vbno then cancel = true end sub thisdocumentに下記を記述 dim x as new eventclassmodule private sub document_open() set x.app = word.application end sub 閉じるボタンを押すと、閉じていいかどうかを聞いてきます。 okで閉じ、noで閉じるのを中止します。 これを雛形にして、あとは、フィールドの値の判定を組み込めば使えるのではないですか? 頑張ってくださいヽ(^。^)ノ