オートテキスト(または同様のもの)を入力するためのチェックボックス

オートテキストは、他のカテゴリのビルディングブロックと同様に機能します.もちろん、それらはユーザーがドキュメントのベースにしているのと同じテンプレートに保存する必要があり、すべてを動作させるためのマクロも同じテンプレートにあります.
(したがって、*.dotxではなく*.dotmファイルである必要があります.)

編集を制限しているので、レガシーフォームフィールドのチェックボックスを使用します.制限は「フォームへの記入」です.(このタイプの制限は、フォームフィールド外での編集/フォーマットを防ぐだけでなく、次のような多くの機能を無効にします.
スペルチェックおよびグラフィックの挿入として. それらが必要な場合は、回避策があります.)

テンプレートには、可能な定型句の挿入ごとにブックマークが必要です.これが正しく機能するには、テンプレート内の各ブックマークが1つ以上のスペース文字を囲む必要があります.

各チェックボックスの[プロパティ]ダイアログでは、入力マクロと終了マクロを指定できます.このプロジェクトでは、チェックボックスごとに1つずつ、終了マクロのみが必要です.(いくつかのより洗練されたプログラミングでは、1つのマクロですべてのチェックボックスを処理することができますが、それは
後のレッスン.)

各出口マクロは次のようになります.ここでは、数字(このマクロでは1つ、次のマクロでは2つなど)のみが変更されます.

サブExit1()
Dim rg As Range
ActiveDocumentを使用
rg=.Bookmarks( "BK1").Range
を設定します .PassWordの保護を解除する:= ""
If.FormFields( "Check1").CheckBox.Value= True Then
.AttachedTemplate.AutoTextEntries( "AT1").Insert Where:= rg
それ以外の場合
rg.Text= ""
Ifを終了
.Bookmarks.Add Name:= "BK1"、Range:= rg
.Protect Type:= wdAllowOnlyFormFields、NoReset:= True、PassWord:= ""
で終わる
サブの終了

ここでは、チェックボックス「Check1」とブックマーク「BK1」に対応するAutoTextEntryに「AT1」という名前を使用しました.これらには、好きな命名規則を使用できます.テンプレートの編集制限にパスワードがある場合は、それを空の場所に挿入します
.Unprotectステートメントと.Protectステートメントの二重引用符.

テンプレート内のモジュールにマクロを追加し、各チェックボックスの[プロパティ]ダイアログを開いて、対応する終了マクロを設定します(コードが存在するまで、それらの名前はダイアログで使用できません).最後に、「フォームへの入力」保護をオンにします
テンプレートを保存します.

明らかではないかもしれないコード内の事柄についてのいくつかのコメント:

• AutoTextEntryを挿入できません ドキュメントが保護されている間、(フォームフィールドの外で)ドキュメントに挿入します.マクロは、ドキュメントの保護を解除し、定型句を挿入して、ドキュメントを再保護する必要があります.これは、ユーザーが編集を行うことができないほど迅速に行われます.
  保護がオフになっている間.
• AutoTextEntryまたはスペース文字が挿入されると、Wordはブックマークを削除します.そのためには、マクロでブックマークを再挿入して、チェックボックスが再び変更された場合にブックマークを再度使用できるようにする必要があります.
• ブックマークに少なくとも1つの文字が含まれていない場合、挿入はブックマークの右側(外側)に配置され、マクロは正しく機能しません. したがって、最初にスペースが必要です.
• ドキュメントが再保護されるときに、オプションのパラメータNoResetがFalseであるか省略されている場合、フォームフィールドはデフォルト値に戻ります.Trueに設定すると、現在の値が消去されなくなります.