Word VBAでメッセージボックスと入力ボックスを使いこなす方法：初心者向け解説

Word VBA（Visual Basic for Applications）を使って、文書作成をもっと便利にする方法をご紹介します。特に、ユーザーにメッセージを表示したり、情報を入力してもらうための「メッセージボックス（MsgBox）」と「入力ボックス（InputBox）」の使い方を、初心者の方にもわかりやすく解説します。

メッセージボックス（MsgBox）とは？
1. 基本的な使い方
2. 返り値の活用
入力ボックス（InputBox）とは？
1. 基本的な使い方
2. キャンセル時の処理
メッセージボックスと入力ボックスを組み合わせる
1. 実際の活用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

メッセージボックス（MsgBox）とは？

Wordのイメージ

基本的な使い方

メッセージボックスは、ユーザーにメッセージを表示し、ボタンをクリックしてもらうためのダイアログボックスです。例えば、文書を保存する前に確認メッセージを表示する場面で活躍します。

以下のコードで、メッセージボックスを表示できます

Sub ShowMessage()

    MsgBox "この文書を保存しますか？", vbYesNo + vbQuestion, "確認"

End Sub

このコードでは、「はい」と「いいえ」のボタンが表示され、ユーザーの選択を待ちます。

返り値の活用

ユーザーがボタンをクリックすると、返り値として選択されたボタンの値が返されます。例えば、「はい」を選択すると `vbYes` が返されます。

以下のコードで、ユーザーの選択に応じて処理を分岐できます

Sub ShowMessage()

    Dim response As Integer

    response = MsgBox("この文書を保存しますか？", vbYesNo + vbQuestion, "確認")

    If response = vbYes Then

        MsgBox "文書を保存します。"

    Else

        MsgBox "保存しません。"

    End If

End Sub

入力ボックス（InputBox）とは？

基本的な使い方

入力ボックスは、ユーザーに情報を入力してもらうためのダイアログボックスです。例えば、文書に名前を挿入する際に使用します。

以下のコードで、入力ボックスを表示できます

Sub GetName()

    Dim userName As String

    userName = InputBox("あなたの名前を入力してください", "名前入力")

    MsgBox "こんにちは、" & userName & "さん！"

End Sub

このコードでは、ユーザーが名前を入力すると、その名前を使って挨拶のメッセージが表示されます。

キャンセル時の処理

ユーザーが入力をキャンセルした場合、返り値は空の文字列 `””` となります。これを利用して、キャンセル時の処理を追加できます

Sub GetName()

    Dim userName As String

    userName = InputBox("あなたの名前を入力してください", "名前入力")

    If userName = "" Then

        MsgBox "名前が入力されませんでした。"

    Else

        MsgBox "こんにちは、" & userName & "さん！"

    End If

End Sub

メッセージボックスと入力ボックスを組み合わせる

実際の活用例

例えば、文書を作成する際に、ユーザーに名前を入力してもらい、その名前を使って挨拶のメッセージを表示することができます。以下のコードで実現できます

Sub CreateDocument()

    Dim userName As String

    userName = InputBox("あなたの名前を入力してください", "名前入力")

    If userName = "" Then

        MsgBox "名前が入力されませんでした。"

    Else

        MsgBox "こんにちは、" & userName & "さん！文書を作成します。"

        ' ここに文書作成のコードを追加

    End If

End Sub

このように、メッセージボックスと入力ボックスを組み合わせることで、ユーザーとの対話型の文書作成が可能になります。