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.

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

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

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

  • 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.

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

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

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

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:

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

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

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

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

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:

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

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

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

Leave a Comment

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.

Cum să adăugați chenar la o pagină în Microsoft Word

Cum să adăugați chenar la o pagină în Microsoft Word

Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.

Cum să scrieți fracții în Google Docs

Cum să scrieți fracții în Google Docs

Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.

Cum să calibrați culoarea monitorului în Windows 10

Cum să calibrați culoarea monitorului în Windows 10

Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...