Kako ustvariti vnosna in sporočilna polja v Wordovem dokumentu z VBA?

Zadnja posodobitev: julij 2020; Uporabnost: Office 365,2019, 2016, 2013.

Včasih bi radi naredili naše Wordove dokumente bolj interaktivne in celo zajeli nekaj uporabniškega vnosa. Vnesite sporočilna in vnosna polja.

Kot že ime pove, je polje za sporočilo informacija, ki je prikazana uporabnikom dokumenta. Vnosna polja so pomembna za zajemanje informacij od uporabnika.

Ta objava vsebuje vse informacije in vzorce kode, ki jih boste potrebovali za ustvarjanje popolnoma funkcionalnih dokumentov s sporočilom Visual Basic za aplikacije (VBA) in vnosnimi polji za Microsoft Word.

Kako dodati kodo VBA v Word?

Preden nadaljujemo in razložimo, kako dodati sporočilna in vnosna polja, je tukaj kratko osvežitev o tem, kako dodati svojo kodo VBA po meri v Wordov dokument.

• Najprej nadaljujte in omogočite zavihek Razvijalec .
• Zdaj pritisnite  gumb  Visual Basic na zavihku Razvijalec  . To bo odprlo urejevalnik Visual Basic.

• Označite svoj dokument.
• Kliknite  Vstavi  in nato izberite  Modul .

• Spodnjo kodo kopirajte v modul, ki ste ga pravkar ustvarili, v svoj modul.
• Kliknite Shrani. Navedite ime svojemu dokumentu, če ste pozvani.
• Zaprite urejevalnik Visual Basic.

Koda VBA polja za sporočila

sintaksa:

MsgBox (poziv, gumbi, naslov, datoteka pomoči, kontekst)

Razlaga sintakse:

Poziv:

Obvezno. To so informacije, ki jih je mogoče dati uporabniku. Vstaviti ga je treba v  dvojni narekovaj .

Gumbi:

Neobvezno. Gumbi so tiste vrste gumbov, ki so podani uporabnikom informacij. Za MsgBox() so na voljo različni gumbi in jih najdete na spodnjih slikah.

Naslov:

Neobvezno. To je naslov informacij, ki so podane uporabniku. Če ni podan,  bo privzeti naslov Microsoft word  .

Datoteka pomoči in kontekst:

• Neobvezno. Helpfile bo identificiral datoteko pomoči, ki je na voljo na lokalnem disku, ki jo lahko zagotovite kot pomoč v pogovornem oknu
• Neobvezno. Kontekst je številski izraz, ki se uporablja za identifikacijo teme pomoči z edinstveno številko.

Vzorec kode polja za sporočila

'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

Izhod:

Pogovorna in vnosna polja Koda VBA

Vnosno polje je preprosto pogovorno okno, ki nam omogoča, da uporabnika pozovemo za nekaj informacij. Seznanimo se s kodo VBA na primeru.

sintaksa:

InputBox(poziv, naslov, privzeto, XPos, YPos, HelpFile, HelpContextId, Type)

Razlaga sintakse:

Poziv:

Obvezno. To so informacije, ki jih je mogoče dati uporabniku. Vstaviti ga je treba v  dvojni narekovaj .

Naslov:

Neobvezno. To je naslov informacij, ki so podane uporabniku. Če ni podan,  bo privzeti naslov Microsoft word  .

privzeto:

Neobvezno. V besedilnem polju prikaže privzeto vrednost, preden uporabnik vnese vrednost. Če ni določeno, bo besedilno polje prazno.

Xpos:

Neobvezno. Uporablja se kot položaj na osi X. Od leve proti desni

YPos:

Neobvezno. Uporablja se kot položaj na osi Y. Od zgoraj navzdol

Datoteka pomoči in ID konteksta pomoči:

• Neobvezno. Helpfile bo identificiral datoteko pomoči, ki je na voljo na lokalnem disku, ki jo lahko zagotovite kot pomoč v pogovornem oknu
• Neobvezno. HelpContext ID je ID številka datoteke pomoči.

Koda polja za vnos:

'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

Izhod: