如何使用 VBA 在 Word 文檔中創建輸入框和消息框？

最後更新：2020 年 7 月；適用範圍：Office 365、2019、2016、2013。

有時，我們想讓我們的 Word 文檔更具交互性，甚至捕獲一些用戶輸入。輸入消息和輸入框。

顧名思義，消息框是向文檔用戶顯示的一條信息。輸入框有助於從用戶那裡獲取信息。

這篇文章包含使用 Visual Basic for Applications (VBA) 消息和 Microsoft Word 輸入框創建功能齊全的文檔所需的所有信息和代碼示例。

如何將 VBA 代碼添加到 Word 中？

在我們繼續解釋如何添加消息和輸入框之前，這裡有一個關於如何將自定義 VBA 代碼添加到 Word 文檔的快速復習。

首先，繼續並啟用“開發人員”選項卡。
現在，點擊 開發人員選項卡中的Visual Basic按鈕。這將打開 Visual Basic 編輯器。

突出顯示您的文檔。
單擊插入，然後選擇模塊。

將我們在下面提供的代碼複製到您剛剛創建的模塊中。
點擊保存。如果出現提示，請為您的文檔提供一個名稱。
關閉 Visual Basic 編輯器。

消息框 VBA 代碼

句法：

MsgBox（提示、按鈕、標題、幫助文件、上下文）

語法解釋：

迅速的：

必需的。它是可以提供給用戶的信息。它應該插入 雙引號內。

鈕扣：

選修的。按鈕是提供給用戶信息的那種按鈕。MsgBox() 有各種可用的按鈕，它們可以在下面的圖片中找到。

標題：

選修的。它是提供給用戶的信息的標題。如果沒有給出， Microsoft word 將是默認標題。

幫助文件和上下文：

選修的。Helpfile 將識別本地磁盤中可用的幫助文件，可以在對話框中作為幫助提供
選修的。上下文是用於通過唯一編號識別幫助主題的數字表達式。

示例消息框代碼

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

輸出：

對話框和輸入框 VBA 代碼

輸入框是一個簡單的對話框，它允許我們提示用戶輸入一些信息。讓我們通過一個示例來熟悉 VBA 代碼。

句法：

InputBox（提示、標題、默認值、XPos、YPos、HelpFile、HelpContextId、Type）

語法解釋：

迅速的：

必需的。它是可以提供給用戶的信息。它應該插入 雙引號內。

標題：

選修的。它是提供給用戶的信息的標題。如果沒有給出， Microsoft word 將是默認標題。

默認：

選修的。在用戶鍵入值之前，它會在文本框中顯示默認值。如果未指定，則文本框將為空。

XPOS：

選修的。它用作 X 軸上的位置。從左到右

位置：

選修的。它用作 Y 軸上的位置。從上到下

幫助文件和 HelpContext ID：

選修的。Helpfile 將識別本地磁盤中可用的幫助文件，可以在對話框中作為幫助提供
選修的。HelpContext ID 是幫助文件的 ID 號。

輸入框代碼：

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

輸出：