Kuidas luua Wordi dokumendis VBA-ga sisestus- ja sõnumikaste?

Viimane värskendus: juuli 2020; Kohaldatavus: Office 365,2019, 2016, 2013.

Mõnikord tahaksime oma Wordi dokumendid interaktiivsemaks muuta ja isegi kasutaja sisendi jäädvustada. Sisestage sõnumi- ja sisestuskastid.

Nagu nimigi ütleb, on teatekast teabeosa, mida kuvatakse dokumendi kasutajatele. Sisestuskastid on olulised kasutajalt teabe kogumiseks.

Selles postituses on kogu teave ja koodinäidised, mida vajate täielikult funktsionaalsete dokumentide loomiseks koos Visual Basic for Applications (VBA) sõnumite ja Microsoft Wordi sisestuskastidega.

Kuidas lisada Wordi VBA koodi?

Enne kui läheme edasi ja selgitame, kuidas sõnumi- ja sisestuskaste lisada, on siin kiire värskendus selle kohta, kuidas lisada kohandatud VBA-kood Wordi dokumenti.

• Kõigepealt minge edasi ja lubage vahekaart Arendaja .
• Nüüd  klõpsake vahekaardil Arendaja  nuppu  Visual Basic . See avab Visual Basicu redaktori.

• Tõstke esile oma dokument.
• Klõpsake nuppu  Lisa  ja seejärel valige  Moodul .

• Kopeerige alltoodud kood äsja loodud moodulisse oma moodulisse.
• Klõpsake nuppu Salvesta. Kui küsitakse, andke oma dokumendile nimi.
• Sulgege Visual Basicu redaktor.

Sõnumikastide VBA kood

Süntaks:

MsgBox (viip, nupud, pealkiri, abifail, kontekst)

Süntaksi selgitus:

Viip:

Nõutud. See on teave, mida saab kasutajale anda. See tuleks sisestada  jutumärgi sisse .

Nupud:

Valikuline. Nupud on sellised nupud, mis antakse kasutajatele teabele. MsgBox() jaoks on saadaval erinevad nupud ja need leiate allolevatelt piltidelt.

Pealkiri:

Valikuline. See on kasutajale antava teabe pealkiri. Kui seda ei anta, on  Microsoft Word  vaikepealkiri.

Abifail ja kontekst:

• Valikuline. Abifail tuvastab kohalikul kettal saadaoleva spikrifaili, mida saab pakkuda abina dialoogiboksis
• Valikuline. Kontekst on numbriline avaldis, mida kasutatakse abiteema tuvastamiseks kordumatu numbri järgi.

Sõnumikasti koodi näidis

'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

Väljund:

Dialoogi- ja sisestuskastide VBA kood

Sisestuskast on lihtne dialoog, mis võimaldab meil küsida kasutajalt teavet. Tutvume VBA koodiga näite varal.

Süntaks:

InputBox (viip, pealkiri, vaikeväärtus, XPos, YPos, abifail, abikonteksti ID, tüüp)

Süntaksi selgitus:

Viip:

Nõutud. See on teave, mida saab kasutajale anda. See tuleks sisestada  jutumärgi sisse .

Pealkiri:

Valikuline. See on kasutajale antava teabe pealkiri. Kui seda ei anta, on  Microsoft Word  vaikepealkiri.

Vaikimisi:

Valikuline. See kuvab vaikeväärtuse tekstikastis, enne kui kasutaja sisestab väärtuse. Kui seda pole määratud, on tekstikast tühi.

XPos:

Valikuline. Seda kasutatakse positsioonina X-teljel. Vasakult paremale

YPos:

Valikuline. Seda kasutatakse positsioonina Y-teljel. Ülevalt alla

Abifail ja HelpContexti ID:

• Valikuline. Abifail tuvastab kohalikul kettal saadaoleva spikrifaili, mida saab pakkuda abina dialoogiboksis
• Valikuline. HelpContext ID on abifaili ID-number.

Sisestage kasti kood:

'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

Väljund: