Cum se creează casete de intrare și mesaje într-un document Word cu VBA?

Ultima actualizare: iulie 2020; Aplicabilitate: Office 365,2019, 2016, 2013.

Uneori, ne-am dori să facem documentele noastre Word mai interactive și chiar să captăm unele informații ale utilizatorului. Introduceți mesajul și casetele de introducere.

După cum sugerează și numele, o casetă de mesaj este o informație care este afișată utilizatorilor documentului. Casetele de intrare sunt instrumentale pentru a capta informații de la utilizator.

Această postare conține toate informațiile și mostrele de cod de care veți avea nevoie pentru a crea documente complet funcționale cu mesaje Visual Basic pentru aplicații (VBA) și casete de introducere pentru Microsoft Word.

Cum se adaugă cod VBA în Word?

Înainte de a continua și de a explica cum să adăugați mesaje și casete de introducere, iată o scurtă actualizare despre cum să adăugați codul VBA personalizat la un document Word.

• În primul rând, mergeți mai departe și activați fila Dezvoltator .
• Acum, apăsați butonul  Visual Basic din  fila Dezvoltator  . Aceasta va deschide Editorul Visual Basic.

• Evidențiați documentul.
• Faceți clic pe  Inserare  și apoi selectați  Modul .

• Copiați codul pe care îl oferim mai jos în modulul pe care tocmai l-ați creat în modulul dvs.
• Faceți clic pe Salvare. Furnizați un nume documentului dvs., dacă vi se solicită.
• Închideți Editorul Visual Basic.

Cod VBA pentru casetele de mesaje

Sintaxă:

MsgBox(prompt,butoane,titlu,fișier de ajutor,context)

Explicația sintaxei:

Prompt:

Necesar. Este informația care poate fi dată utilizatorului. Ar trebui introdus în  ghilimele duble .

Butoane:

Opțional. Butoanele sunt acele tipuri de butoane care sunt oferite informațiilor utilizatorilor. Există diverse butoane disponibile pentru MsgBox() și pot fi găsite în imaginile de mai jos.

Titlu:

Opțional. Este titlul informațiilor oferite utilizatorului. Dacă nu este dat,  Microsoft Word  va fi titlul implicit.

Fișier de ajutor și context:

• Opțional. Helpfile va identifica fișierul de ajutor disponibil pe discul local care poate fi furnizat ca ajutor într-o casetă de dialog
• Opțional. Contextul este o expresie numerică care este folosită pentru a identifica subiectul de ajutor prin numărul unic.

Exemplu de cod al casetei de mesaje

'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

Ieșire:

Casete de dialog și de intrare Cod VBA

Caseta de introducere este un dialog simplu care ne permite să solicităm utilizatorului câteva informații. Să ne familiarizăm cu codul VBA folosind un exemplu.

Sintaxă:

InputBox(Prompt, Titlu, Implicit, XPos, YPos, HelpFile, HelpContextId, Type)

Explicația sintaxei:

Prompt:

Necesar. Este informația care poate fi dată utilizatorului. Ar trebui introdus în  ghilimele duble .

Titlu:

Opțional. Este titlul informațiilor oferite utilizatorului. Dacă nu este dat,  Microsoft Word  va fi titlul implicit.

Mod implicit:

Opțional. Afișează valoarea implicită în interiorul casetei de text, înainte ca utilizatorul să introducă o valoare. Dacă nu este specificat, caseta de text va fi goală.

XPos:

Opțional. Este folosit ca poziție pe axa X. De la stanga la dreapta

YPos:

Opțional. Este folosit ca poziție pe axa Y. De sus până jos

Helpfile și HelpContext ID:

• Opțional. Helpfile va identifica fișierul de ajutor disponibil pe discul local care poate fi furnizat ca ajutor într-o casetă de dialog
• Opțional. HelpContext ID este numărul de identificare pentru fișierul de ajutor.

Cod caseta de introducere:

'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

Ieșire: