Kā izveidot ievades un ziņojumu lodziņus Word dokumentā, izmantojot VBA?

Pēdējā atjaunināšana: 2020. gada jūlijā; Piemērojamība: Office 365,2019, 2016, 2013.

Dažreiz mēs vēlētos padarīt savus Word dokumentus interaktīvākus un pat uztvert kādu lietotāja ievadi. Ievadiet ziņojumu un ievades lodziņus.

Kā norāda nosaukums, ziņojumu lodziņš ir informācijas daļa, kas tiek parādīta dokumenta lietotājiem. Ievades lodziņi ir noderīgi, lai uztvertu informāciju no lietotāja.

Šajā ziņojumā ir visa informācija un koda paraugi, kas jums būs nepieciešami, lai izveidotu pilnībā funkcionālus dokumentus ar Visual Basic for Applications (VBA) ziņojumu un Microsoft Word ievades lodziņiem.

Kā programmā Word pievienot VBA kodu?

Pirms mēs turpinām un paskaidrojam, kā pievienot ziņojumu un ievades lodziņus, šeit ir sniegts īss atsvaidzinājums par to, kā Word dokumentam pievienot pielāgotu VBA kodu.

• Vispirms dodieties uz priekšu un iespējojiet cilni Izstrādātājs .
• Tagad  cilnē Izstrādātājs  nospiediet pogu  Visual Basic . Tas atvērs Visual Basic redaktoru.

• Iezīmējiet savu dokumentu.
• Noklikšķiniet uz  Ievietot  un pēc tam atlasiet  Modulis .

• Kopējiet tālāk sniegto kodu modulī, kuru tikko izveidojāt savā modulī.
• Noklikšķiniet uz Saglabāt. Ja tiek prasīts, norādiet sava dokumenta nosaukumu.
• Aizveriet Visual Basic redaktoru.

Ziņojumu kastītes VBA kods

Sintakse:

MsgBox(uzvedne,pogas,nosaukums,palīdzības fails,konteksts)

Sintakses skaidrojums:

Pamudināt:

Obligāti. Tā ir informācija, ko var sniegt lietotājam. Tas jāievieto  pēdiņās .

Pogas:

Neobligāti. Pogas ir pogas, kas tiek sniegtas lietotāja informācijai. MsgBox() ir pieejamas dažādas pogas, un tās var atrast zemāk esošajos attēlos.

Nosaukums:

Neobligāti. Tas ir lietotājam sniegtās informācijas nosaukums. Ja tas nav norādīts,  Microsoft Word  būs noklusējuma nosaukums.

Palīdzības fails un konteksts:

• Neobligāti. Palīdzības fails identificēs vietējā diskā pieejamo palīdzības failu, ko var nodrošināt kā palīdzību dialoglodziņā
• Neobligāti. Konteksts ir skaitliska izteiksme, ko izmanto, lai identificētu palīdzības tēmu pēc unikālā numura.

Ziņojuma lodziņa koda paraugs

'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

Izvade:

Dialoga un ievades lodziņu VBA kods

Ievades lodziņš ir vienkāršs dialoglodziņš, kas ļauj mums pieprasīt lietotājam kādu informāciju. Ļaujiet mums iepazīties ar VBA kodu, izmantojot piemēru.

Sintakse:

InputBox (uzvedne, nosaukums, noklusējums, XPOS, YPos, palīdzības fails, palīdzības konteksta ID, tips)

Sintakses skaidrojums:

Pamudināt:

Obligāti. Tā ir informācija, ko var sniegt lietotājam. Tas jāievieto  pēdiņās .

Nosaukums:

Neobligāti. Tas ir lietotājam sniegtās informācijas nosaukums. Ja tas nav norādīts,  Microsoft Word  būs noklusējuma nosaukums.

Noklusējums:

Neobligāti. Tas parāda noklusējuma vērtību tekstlodziņā, pirms lietotājs ievada vērtību. Ja tas nav norādīts, tekstlodziņš būs tukšs.

XPOS:

Neobligāti. To izmanto kā pozīciju uz X ass. No kreisās puses uz labo

YPos:

Neobligāti. To izmanto kā pozīciju uz Y ass. No augšas uz leju

Palīdzības fails un palīdzības konteksta ID:

• Neobligāti. Palīdzības fails identificēs vietējā diskā pieejamo palīdzības failu, ko var nodrošināt kā palīdzību dialoglodziņā
• Neobligāti. HelpContext ID ir palīdzības faila ID numurs.

Ievades lodziņa kods:

'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

Izvade: