Kako stvoriti okvire za unos i poruke u Word dokumentu s VBA?

Posljednje ažuriranje: srpanj 2020.; Primjenjivost: Office 365,2019, 2016, 2013.

Ponekad bismo željeli učiniti naše Word dokumente interaktivnijim, pa čak i uhvatiti neki korisnički unos. Unesite poruke i okvire za unos.

Kao što naziv sugerira, okvir s porukom je dio informacije koji se prikazuje korisnicima dokumenta. Kutije za unos su ključne za prikupljanje informacija od korisnika.

Ovaj post sadrži sve informacije i uzorke koda koji su vam potrebni za stvaranje potpuno funkcionalnih dokumenata s porukom Visual Basica za aplikacije (VBA) i okvirima za unos za Microsoft Word.

Kako dodati VBA kod u Word?

Prije nego što nastavimo i objasnimo kako dodati okvire za poruke i unos, evo kratkog osvježenja o tome kako dodati svoj prilagođeni VBA kod u Word dokument.

• Prvo, samo naprijed i omogućite karticu Razvojni programer .
• Sada pritisnite  gumb  Visual Basic na kartici Developer  . Ovo će otvoriti Visual Basic Editor.

• Istaknite svoj dokument.
• Kliknite  Umetni  , a zatim odaberite  Modul .

• Kopirajte kod koji pružamo u nastavku u modul koji ste upravo stvorili u svoj modul.
• Kliknite na Spremi. Dajte naziv svom dokumentu ako se to od vas zatraži.
• Zatvorite Visual Basic Editor.

VBA kod okvira za poruke

Sintaksa:

MsgBox(prompt,gumbi,naslov,datoteka pomoći,kontekst)

Objašnjenje sintakse:

Potaknuti:

Potreban. To je informacija koja se može dati korisniku. Treba ga umetnuti unutar  dvostrukog navodnika .

Gumbi:

Izborno. Gumbi su one vrste tipki koje se daju informacijama o korisnicima. Dostupni su različiti gumbi za MsgBox() i mogu se naći na slikama ispod.

Titula:

Izborno. To je naslov za informacije koje se daju korisniku. Ako nije navedeno,  Microsoft word  bit će zadani naslov.

Datoteka pomoći i kontekst:

• Izborno. Helpfile će identificirati datoteku pomoći koja je dostupna na lokalnom disku koja se može pružiti kao pomoć u dijaloškom okviru
• Izborno. Kontekst je numerički izraz koji se koristi za identifikaciju teme pomoći jedinstvenim brojem.

Primjer koda okvira za poruke

'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

Izlaz:

Dijaloški i ulazni okviri VBA kod

Okvir za unos je jednostavan dijaloški okvir koji nam omogućuje da od korisnika zatražimo neke informacije. Upoznajmo se s VBA kodom na primjeru.

Sintaksa:

InputBox(prompt, naslov, zadano, XPos, YPos, HelpFile, HelpContextId, Type)

Objašnjenje sintakse:

Potaknuti:

Potreban. To je informacija koja se može dati korisniku. Treba ga umetnuti unutar  dvostrukog navodnika .

Titula:

Izborno. To je naslov za informacije koje se daju korisniku. Ako nije navedeno,  Microsoft word  bit će zadani naslov.

Zadano:

Izborno. Prikazuje zadanu vrijednost unutar tekstualnog okvira, prije nego što korisnik upiše vrijednost. Ako nije navedeno, tekstni okvir će biti prazan.

Xpos:

Izborno. Koristi se kao položaj na osi X. S lijeva na desno

YPos:

Izborno. Koristi se kao položaj na Y osi. Od vrha do dna

Helpfile i HelpContext ID:

• Izborno. Helpfile će identificirati datoteku pomoći koja je dostupna na lokalnom disku koja se može pružiti kao pomoć u dijaloškom okviru
• Izborno. HelpContext ID je ID broj za datoteku pomoći.

Kôd okvira za unos:

'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

Izlaz: