Kaip sukurti įvesties ir pranešimų dėžutes Word dokumente naudojant VBA?

Paskutinis atnaujinimas: 2020 m. liepos mėn.; Taikymas: Office 365, 2019, 2016, 2013 m.

Kartais norėtume, kad „Word“ dokumentai būtų interaktyvesni ir netgi užfiksuotų vartotojo įvestį. Įveskite pranešimo ir įvesties laukelius.

Kaip rodo pavadinimas, pranešimų laukelis yra informacijos dalis, kuri rodoma dokumento vartotojams. Įvesties laukeliai yra svarbūs norint užfiksuoti informaciją iš vartotojo.

Šiame įraše yra visa informacija ir kodo pavyzdžiai, kurių prireiks norint sukurti visiškai veikiančius dokumentus su „Visual Basic for Applications“ (VBA) pranešimais ir „Microsoft Word“ įvesties laukeliais.

Kaip pridėti VBA kodą į „Word“?

Prieš eidami į priekį ir paaiškindami, kaip pridėti pranešimų ir įvesties laukelius, čia pateikiamas greitas atnaujinimas, kaip pridėti pasirinktinį VBA kodą prie „Word“ dokumento.

• Pirmiausia eikite į priekį ir įgalinkite skirtuką Kūrėjas .
• Dabar spustelėkite mygtuką „  Visual Basic “, esantį  skirtuke „ Kūrėjas  “. Tai atidarys „Visual Basic“ redaktorių.

• Pažymėkite savo dokumentą.
• Spustelėkite  Įterpti  , tada pasirinkite  Modulis .

• Nukopijuokite toliau pateiktą kodą į modulį, kurį ką tik sukūrėte į savo modulį.
• Spustelėkite Išsaugoti. Jei būsite paraginti, nurodykite savo dokumento pavadinimą.
• Uždarykite Visual Basic redaktorių.

Pranešimų dėžutės VBA kodas

Sintaksė:

MsgBox(raginimas,mygtukai,pavadinimas,pagalbos failas,kontekstas)

Sintaksės paaiškinimas:

Raginimas:

Reikalingas. Tai informacija, kurią galima pateikti vartotojui. Jis turėtų būti įterptas į  dvigubą kabutę .

Mygtukai:

Neprivaloma. Mygtukai yra tokie mygtukai, kurie pateikiami vartotojų informacijai. Yra įvairių MsgBox() mygtukų, kuriuos galite rasti toliau pateiktose nuotraukose.

Pavadinimas:

Neprivaloma. Tai vartotojui suteikiamos informacijos pavadinimas. Jei nenurodyta,  „Microsoft Word  “ bus numatytasis pavadinimas.

Pagalbinis failas ir kontekstas:

• Neprivaloma. Pagalbos failas nustatys vietiniame diske esantį žinyno failą, kuris gali būti pateiktas kaip pagalba dialogo lange
• Neprivaloma. Kontekstas yra skaitinė išraiška, naudojama pagalbos temai identifikuoti pagal unikalų numerį.

Pranešimo dėžutės kodo pavyzdys

'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

Išvestis:

Dialogo ir įvesties laukelių VBA kodas

Įvesties laukelis yra paprastas dialogo langas, leidžiantis paraginti vartotoją pateikti tam tikros informacijos. Susipažinkime su VBA kodu naudodamiesi pavyzdžiu.

Sintaksė:

Įvesties laukelis (raginimas, pavadinimas, numatytasis, XPos, YPos, žinyno failas, žinyno konteksto ID, tipas)

Sintaksės paaiškinimas:

Raginimas:

Reikalingas. Tai informacija, kurią galima pateikti vartotojui. Jis turėtų būti įterptas į  dvigubą kabutę .

Pavadinimas:

Neprivaloma. Tai vartotojui suteikiamos informacijos pavadinimas. Jei nenurodyta,  „Microsoft Word  “ bus numatytasis pavadinimas.

Numatytas:

Neprivaloma. Numatytoji reikšmė rodoma teksto laukelyje, prieš vartotojui įvedant reikšmę. Jei nenurodyta, teksto laukelis bus tuščias.

XPOS:

Neprivaloma. Jis naudojamas kaip padėtis X ašyje. Iš kairės į dešinę

YPos:

Neprivaloma. Jis naudojamas kaip padėtis Y ašyje. Nuo viršaus iki apačios

Žinyno failas ir HelpContext ID:

• Neprivaloma. Pagalbos failas nustatys vietiniame diske esantį žinyno failą, kuris gali būti pateiktas kaip pagalba dialogo lange
• Neprivaloma. HelpContext ID yra pagalbos failo ID numeris.

Įvesties dėžutės kodas:

'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

Išvestis: