Word VBAを支配する：UserFormで「入力の暴走」を止める極意
こんにちは。自動化の深淵へようこそ。
「マクロの記録」から一歩踏み出し、あなた自身の意思でWordを操る準備はできましたか？
多くの初心者が陥る罠は、「ユーザー入力を野放しにする」ことです。InputBoxで値を投げ込み、そのまま処理に突っ込む……。これはバグの温床であり、システム開発の現場では最も恐れられる「思考停止」です。
今日は、プロの現場でも必ず使う「UserForm」を使い、「安全で、使いやすく、堅牢な入力インターフェース」を構築する極意を伝授します。
—
1. なぜ「InputBox」ではなく「UserForm」なのか？
InputBoxは手軽ですが、入力ミスを制御できません。ユーザーが全角で入力したのか、半角なのか、あるいは空文字でOKを押したのか。これらを逐一判定するのはコードが汚れる元です。
UserFormを使うメリットは明確です。
- バリデーションの集中管理: 入力確定の瞬間に、値が正しいかチェックできる。
- 直感的なUI: コンボボックスやチェックボックスで、ユーザーに「選ばせる」ことが可能。
- オブジェクトの独立性: ロジックとUIを分離できるため、メンテナンス性が劇的に向上する。
—
2. UserForm構築の3ステップ
まずは、Word VBAのVBE（Alt + F11）を開き、[挿入] > [ユーザーフォーム] を選択してください。
ステップ①：パーツを配置する
ツールボックスから以下を配置しましょう。
- TextBox1: 入力用。名前を `txtDocTitle` に変更します。
- CommandButton1: 実行用。名前を `btnExecute` に変更します。
ステップ②：コードを書き込む
UserFormの裏側のコード（コードウィンドウ）を開き、以下を記述してください。ここが「命」です。
‘ 【UserForm1のコード】
Private Sub btnExecute_Click()
‘ 1. バリデーション：入力値が空でないかチェック
If Trim(Me.txtDocTitle.Text) = “” Then
MsgBox “タイトルを入力してください。”, vbExclamation, “入力エラー”
Me.txtDocTitle.SetFocus ‘ 入力欄へフォーカスを戻す
Exit Sub ‘ 処理を中断（ここが重要！）
End If
‘ 2. 正常な場合の処理へ（標準モジュールへ値を渡す準備）
‘ ここではグローバル変数や公開メソッドを呼び出すのが定石
Call Module1.MainProcess(Me.txtDocTitle.Text)
‘ 3. フォームを閉じる
Unload Me
End Sub
ステップ③：呼び出し用標準モジュール
標準モジュールを作成し、以下のコードを記述してください。
‘ 【標準モジュールのコード】
Sub ShowInputForm()
‘ フォームをモーダルで表示（ユーザーが閉じるまで他を触らせない）
UserForm1.Show
End Sub
Sub MainProcess(title As String)
‘ 渡された値をドキュメントの先頭に挿入
ActiveDocument.Range(0, 0).Text = title & vbCrLf
End Sub
—
3. 初学者が陥る「3つの罠」とその回避策
罠1：バリデーションを無視して突き進む
`If`文で入力をチェックせず、いきなり処理を開始してはいけません。必ず「正しくないケース」を先に弾く（ガード節）のが、プロのコーディングスタイルです。
罠2：オブジェクトのライフサイクルを忘れる
`Unload Me` を忘れずに行いましょう。メモリ上にフォームが残り続けると、次に開いたときに古いデータが残る「ゴースト現象」が発生します。
罠3：エラーハンドリングの欠如
ユーザーが想定外の挙動（キャンセルボタンを押すなど）をした場合を想定し、必ずエラーハンドリングを意識してください。
On Error GoTo ErrorHandler
‘ 処理…
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました：” & Err.Description
Unload Me
—
あなたのWordは、もっと進化できる
ここまで理解できれば、あなたはもう「マクロ記録」の卒業生です。
UserFormを導入した瞬間、あなたのツールは単なる「おもちゃ」から「業務システム」へと格上げされます。
次のステップ:
次は、`ComboBox`を使って、あらかじめ定義した選択肢から選ばせる仕組みを作ってみましょう。入力の「揺れ」を完全に消し去ることで、あなたの自動化ツールはより鋼のような堅牢さを手に入れるはずです。
「分からない」を「仕組み」に変える。これこそがエンジニアの醍醐味です。
さあ、エディタに戻って、自分だけのインターフェースを完成させてください！応援しています。
