Come creare caselle di input e messaggi in un documento Word con VBA?

Ultimo aggiornamento: luglio 2020; Applicabilità: Office 365,2019, 2016, 2013.

A volte, vorremmo rendere i nostri documenti Word più interattivi e persino acquisire alcuni input dell'utente. Immettere il messaggio e le caselle di immissione.

Come suggerisce il nome, una finestra di messaggio è un'informazione che viene visualizzata agli utenti del documento. Le caselle di input sono strumentali per acquisire informazioni dall'utente.

Questo post contiene tutte le informazioni e gli esempi di codice necessari per creare documenti completamente funzionali con messaggi Visual Basic, Applications Edition (VBA) e caselle di input per Microsoft Word.

Come aggiungere il codice VBA in Word?

Prima di andare avanti e spiegare come aggiungere messaggi e caselle di input, ecco un rapido aggiornamento su come aggiungere il codice VBA personalizzato a un documento di Word.

• Prima di tutto, vai avanti e abilita la scheda Sviluppatore .
• Ora, premi il  pulsante Visual Basic dalla  scheda Sviluppatore  . Questo aprirà l'editor di Visual Basic.

• Evidenzia il tuo documento.
• Fare clic su  Inserisci  e quindi selezionare  Modulo .

• Copia il codice che forniamo di seguito nel modulo che hai appena creato nel tuo modulo.
• Fare clic su Salva. Fornisci un nome al documento se richiesto.
• Chiudere l'editor di Visual Basic.

Caselle di messaggio Codice VBA

Sintassi:

MsgBox (prompt, pulsanti, titolo, file di aiuto, contesto)

Spiegazione della sintassi:

Richiesta:

Necessario. Sono le informazioni che possono essere fornite all'utente. Va inserito tra  virgolette doppie .

Pulsanti:

Opzionale. I pulsanti sono quel tipo di pulsanti che vengono forniti alle informazioni degli utenti. Sono disponibili vari pulsanti per MsgBox() e possono essere trovati nelle immagini seguenti.

Titolo:

Opzionale. È il titolo delle informazioni fornite all'utente. In caso contrario,  Microsoft Word  sarà il titolo predefinito.

File di aiuto e contesto:

• Opzionale. Helpfile identificherà il file della Guida disponibile nel disco locale che può essere fornito come guida in una finestra di dialogo
• Opzionale. Il contesto è un'espressione numerica utilizzata per identificare l'argomento della guida in base al numero univoco.

Esempio di codice della casella di messaggio

'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

Produzione:

Finestra di dialogo e caselle di input Codice VBA

La casella di immissione è una semplice finestra di dialogo che ci consente di richiedere all'utente alcune informazioni. Facciamo conoscenza con il codice VBA usando un esempio.

Sintassi:

InputBox(Prompt, Titolo, Predefinito, XPos, YPos, HelpFile, HelpContextId, Tipo)

Spiegazione della sintassi:

Richiesta:

Necessario. Sono le informazioni che possono essere fornite all'utente. Va inserito tra  virgolette doppie .

Titolo:

Opzionale. È il titolo delle informazioni fornite all'utente. In caso contrario,  Microsoft Word  sarà il titolo predefinito.

Predefinito:

Opzionale. Visualizza il valore predefinito all'interno della casella di testo, prima che l'utente digiti un valore. Se non specificato, la casella di testo sarà vuota.

XPo:

Opzionale. Viene utilizzato come posizione sull'asse X. Da sinistra a destra

YPos:

Opzionale. Viene utilizzato come posizione sull'asse Y. Da cima a fondo

Helpfile e HelpContext ID:

• Opzionale. Helpfile identificherà il file della Guida disponibile nel disco locale che può essere fornito come guida in una finestra di dialogo
• Opzionale. HelpContext ID è il numero ID per il file della guida.

Codice casella di immissione:

'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

Produzione: