Word文書に必須入力項目を設けたい

質問

[要望概要]
Word文書のマクロ機能を用いて、文書中の特定の個所に必須入力項目を設けたいのですが、どのようにマクロを記述すれば良いのか分かりません。

[要望詳細]
特定個所（例えば、「名前：＿＿＿＿＿」と言う欄の下線部分）に何かが入力されていなければ、文書の保存が出来ないようにしたい。
あるいは、Word起動時にマクロで必須入力個所の入力を促し、入力を行なわなければいかなる操作も受け付けないようにしたい。
（完全に上記機能を実現できなくとも、類似機能があれば教えていただきたい）

かなり調べたのですがどうしても分からず、ここで質問させていただきました。
ご存知の方がいらっしゃいましたらお手数ですが教えていただけますでしょうか。
よろしくお願いいたします。

回答No.4

TTak · ベストアンサー

私がよく使う手法ですが、パスワード付きでブック保護したまま保存しておき、マクロでブック保護を解除するようにすれば、マクロを無効にして立ち上げた時は自動的に文書の改編ができません。また、文書中の決められた行（たとえば1行目）に「マクロを有効にして起動してください」などと記述しておけば、マクロを無効にしている時のメッセージの代わりになります。マクロが有効の場合は、マクロを使ってその行の記述を削除すれば良いですね。

次の例は文書を開く時に一行目に氏名を入力するマクロです。新規文書の1行目に「マクロを有効にして起動してください」と記述して、ブック保護（パスワード"aaa"）として、次のマクロ（Document_Openイベントプロシージャ）を記述して保存します。

最初に文書を開くとき氏名入力を催すInputBoxが表示され、InputBoxが空欄でなければ、Unprotectメソッドでブック保護を解除して、InputBoxに入力された内容が文書の1行目を書き換えます。文書の1行目にはあらかじめ「マクロを有効にして起動してください」と記述してたので、もしマクロを無効にして立ち上げた場合はこの表記が残り、ブック保護も継続されます。

Private Sub Document_Open()
Dim myName
On Error GoTo ERRHAND
With ActiveDocument
　　.Unprotect Password:="aaa"
　　If .Paragraphs(1).Range Like "氏名　：　" & "*" = True Then Exit Sub
　　.Protect Password:="aaa", NoReset:=False, Type:= _
　　　wdAllowOnlyFormFields
　　myName = InputBox("氏名を入力してください" & Chr(13) _
　　　& "記入されなかった場合は文章の編集ができません")
　　If myName = "" Then Exit Sub
　　.Unprotect Password:="xxx"
　　With .Paragraphs(1).Range
　　　　.Delete
　　　　.InsertBefore "氏名　：　" & myName
　　End With
　End With
Exit Sub '以下エラー処理
ERRHAND:
End Sub

なお、マクロの知識がある人はマクロ内のブック保護パスワードが見れますので、プロジェクトの非表示・ロックとパスワード保護が必要です。

お礼

ご回答頂きありがとう御座います。
大変ご丁寧にご説明頂きまして大感謝です。
TTakさんの方法で実際に文章を作って検証してみたいと思います。

ここまでご回答頂いた皆様も含めまして、本当にありがとう御座いました。
皆様から教えて頂いた方法を活用させていただきます。
質問のほうはここで一度締めさせていただきます。