こんにちは！マクロの記録ボタンを押すだけの自動化から一歩抜け出し、「自分の手で本格的なツールを作りたい」と願うあなたへ。
今回は、Word VBAにおける「UserForm（ユーザーフォーム）」を使った入力支援と、実用に耐えうる堅牢なバリデーション（入力値検証）の構築方法について解説します。
「Excelではフォームを作ったことがあるけれど、Wordだと勝手が違う……」
「入力されたデータを、どうやって正確に文書の狙った位置に流し込めばいいのか分からない」
そんな疑問や不安を、この一記事で綺麗にクリアにしましょう。ここをしっかりとマスターすれば、Word VBAの基本はバッチリです。ぜひ最後までついてきてくださいね！
—
1. なぜWordでUserFormを使うのか？
Wordでの自動化といえば、文書のテンプレートに文字を直接置き換える（置換処理など）が主流です。しかし、複数の担当者や、ITスキルにバラつきのある現場でその仕組みを使うと、必ずと言っていいほどこんな問題が起きます。
- 「必要な項目の入力が抜けている」
- 「日付のフォーマットがバラバラ（例: 2023/10/1 と 10月1日）」
- 「社外秘のコードを間違えて入力してしまった」
こうした「ヒューマンエラー」を未然に防ぐ防波堤となるのが、今回作成するUserFormです。画面上で自由に入力をさせず、選択肢を制限したり、空欄のままでは次に進めなくしたりする――これがプロの作る実用的な入力支援システムの第一歩です。
—
2. 実践：申請書作成フォームを作ってみよう
今回は題材として、社内でよくある「稟議・申請書」の冒頭部分を自動生成するフォームを作ってみましょう。
以下のステップで進めていきます。
1. VBE（Visual Basic Editor）を開き、UserFormを挿入する
2. コントロール（部品）を配置する
3. フォームにコードを書き込む
4. 文書側にデータを流し込むロジックを実装する
Step 1 & 2: フォームの設計と部品の配置
VBEを開き（`Alt + F11`）、メニューの「挿入」＞「ユーザーフォーム」をクリックします。
表示された「UserForm1」に対し、ツールボックスから以下の部品を配置してください。
| 部品の種類 | コントロール名 (Nameプロパティ) | キャプション等 (Caption / Text) | 用途 |
| :— | :— | :— | :— |
| ラベル | `Label1` | 申請者氏名 | 項目名表示 |
| テキストボックス | `txtApplicant` | （なし） | 氏名入力用 |
| ラベル | `Label2` | 申請部署 | 項目名表示 |
| コンボボックス | `cmbDepartment` | （なし） | 部署選択用（営業部、開発部など） |
| コマンドボタン | `btnSubmit` | 発行する | 実行ボタン |
—
Step 3: フォーム側コード（動的制御とバリデーション）
ここからが本題です。ユーザーが「発行する」ボタンを押した瞬間、「正しく入力されているか？」をチェック（バリデーション）するコードを記述します。
UserFormのグレーの余白部分をダブルクリックし、コードウィンドウを開いて以下のコードを貼り付けてみてください。
Option Explicit ‘ 宣言漏れのエラーを防ぐお約束の呪文
‘ フォームが読み込まれたときの初期設定（動的なリスト項目の追加）
Private Sub UserForm_Initialize()
‘ コンボボックスにあらかじめ選択肢をセットする（入力ミスの防止）
With Me.cmbDepartment
.AddItem “経営企画部”
.AddItem “営業部”
.AddItem “開発部”
.AddItem “総務部”
‘ 初期選択を未選択にする
.ListIndex = -1
End With
‘ テキストボックスをクリア
Me.txtApplicant.Text = “”
End Sub
‘ 「発行する」ボタンがクリックされたときの処理
Private Sub btnSubmit_Click()
‘ — 1. バリデーション（入力値の検証） —
‘ 氏名が未入力の場合
If Trim(Me.txtApplicant.Text) = “” Then
MsgBox “申請者の氏名を入力してください。”, vbExclamation, “入力エラー”
Me.txtApplicant.SetFocus ‘ フォーカスを戻して再入力を促す
Exit Sub
End Sub
‘ 部署が選択されていない場合
If Me.cmbDepartment.ListIndex = -1 Then
MsgBox “部署を選択してください。”, vbExclamation, “入力エラー”
Me.cmbDepartment.SetFocus
Exit Sub
End Sub
‘ — 2. 文書へのデータ反映処理 —
‘ モジュールレベルの変数やプロパティ経由、あるいは直接Documentを操作する
Call InsertDataToDocument(Me.txtApplicant.Text, Me.cmbDepartment.Value)
‘ 処理が完了したらフォームを閉じる
Unload Me
End Sub
ここがエンジニアのこだわりポイント！
- `Trim(Me.txtApplicant.Text) = “”`: ユーザーがうっかりスペースだけを入力した場合でも空欄とみなすため、`Trim`関数で空白を除去してチェックしています。
- `SetFocus`: エラーがあった際、該当する入力欄に自動でカーソルを戻すことで、ユーザーのストレスを劇的に軽減します。
—
Step 4: 文書側へデータを流し込む標準モジュール
次に、フォームから受け取ったデータをWord文書の特定の場所（プレースホルダーやブックマークなど）に書き込むプロシージャを、標準モジュール（「挿入」＞「標準モジュール」）に記述します。
Option Explicit
‘ フォームから渡されたデータを受け取り、文書に書き込むメイン処理
Public Sub InsertDataToDocument(ByVal applicantName As String, ByVal department As String)
Dim rng As Range
Set rng = ActiveDocument.Content
‘ 【簡易的な実装例】文頭に申請情報を挿入する
‘ ※実務ではブックマークや文書コントロール（ContentControl）を使うとより堅牢になります
With rng
.InsertBefore “【申請情報】” & vbCrLf
.InsertBefore “申請部署：” & department & vbCrLf
.InsertBefore “申請者名：” & applicantName & ” 殿” & vbCrLf
.InsertBefore “—————————————-” & vbCrLf & vbCrLf
End With
MsgBox “文書へのデータ反映が完了しました！”, vbInformation, “完了”
End Sub
そして、このフォームを画面上に呼び出すための起動用マクロも同じ標準モジュールに書いておきます。
‘ ユーザーフォームを呼び出すエントリポイント
Sub ShowApplicationForm()
UserForm1.Show
End Sub
これで、Wordの画面からマクロを実行すれば、洗練された入力ダイアログが立ち上がり、バリデーションを通過した安全なデータだけが文書に書き込まれる仕組みの完成です！
—
3. 初学者が陥りがちな「罠」と回避のコツ
Word VBAでUserFormを扱う際、初心者が必ずと言っていいほどハマるポイントがいくつかあります。あらかじめ知っておけば怖くありません。
罠1: フォームを閉じてもメモリに残る（`Unload` と `Hide` の違い）
コード内でフォームを消すとき、`Me.Hide` を使っていませんか？
`Hide` は「非表示」にしているだけで、メモリ上にオブジェクトが残り続けます。次にフォームを開いたとき、前回の入力データが残ってしまっている原因はこれです。
データを完全に破棄してメモリから解放したいときは、必ず `Unload Me` を使いましょう。
罠2: Word文書のどこに書き込まれるか分からない
Excelであれば「Cells(1, 1)」と書けばセルを指定できますが、Wordは「段落」「文字」「ストーリー（本文・ヘッダーなど）」が複雑に絡み合う連続したテキストの世界です。
適当なコードで書き込むと、タイトルや既存の文章を上書きしてしまう事故が起きます。
実務で特定の場所へピンポイントに出力したい場合は、「ブックマーク（Bookmark）」や「文書コントロール（ContentControl）」をあらかじめ文書に仕込んでおき、Rangeオブジェクトでそこを特定して書き換える手法を身につけましょう。
—
まとめ：ここをクリアすれば、Word VBAの基本はバッチリ！
今回は、UserFormを用いた入力支援とバリデーションの基礎を解説しました。
1. UserFormの初期化（`Initialize`）で選択肢を動的に制御する
2. ボタンクリック時に必ず「空欄チェック」や「選択チェック」のバリデーションを挟む
3. エラー時は `SetFocus` でユーザーを優しく誘導する
4. データの破棄は `Unload Me` で確実に行う
この4つの型を身につけるだけで、あなたが書くマクロのクオリティは、単なる「記録の再生」から「プログラミングによるソリューション」へと劇的に進化します。
「動いた！」という感動を味わったら、次はチェックボックスを追加したり、日付の妥当性チェック（年月日のチェック）に挑戦したりしてみてください。あなたの自動化ライフを、心から応援しています！
