Hvordan opretter man input- og beskedbokse i et Word-dokument med VBA?

Sidste opdatering: juli 2020; Anvendelse: Office 365,2019, 2016, 2013.

Nogle gange vil vi gerne gøre vores Word-dokumenter mere interaktive og endda fange nogle brugerinput. Indtast besked- og inputfelter.

Som navnet antyder, er en beskedboks et stykke information, der vises for dokumentbrugerne. Inputbokse er medvirkende til at fange information fra brugeren.

Dette indlæg har alle de oplysninger og kodeeksempler, du skal bruge for at oprette fuldt funktionelle dokumenter med Visual Basic for Applications (VBA)-meddelelser og inputbokse til Microsoft Word.

Hvordan tilføjer man VBA-kode til Word?

Før vi går videre og forklarer, hvordan du tilføjer besked- og inputfelter, er her en hurtig genopfriskning af, hvordan du tilføjer din tilpassede VBA-kode til et Word-dokument.

• Først skal du gå videre og aktivere fanen Udvikler .
• Tryk nu på  Visual Basic- knappen fra fanen  Udvikler  . Dette åbner Visual Basic Editor.

• Fremhæv dit dokument.
• Klik  på Indsæt  , og vælg derefter  Modul .

• Kopier koden, vi giver nedenfor, ind i det modul, du lige har oprettet i dit modul.
• Klik på Gem. Angiv et navn til dit dokument, hvis du bliver bedt om det.
• Luk Visual Basic Editor.

Meddelelsesbokse VBA-kode

Syntaks:

MsgBox(prompt,knapper,titel,hjælpefil,kontekst)

Syntaks forklaring:

Hurtig:

Påkrævet. Det er den information, der kan gives til brugeren. Det skal indsættes i det  dobbelte anførselstegn .

Knapper:

Valgfri. Knapper er den slags knapper, der gives til brugernes information. Der er forskellige knapper tilgængelige til MsgBox(), og de kan findes på billederne nedenfor.

Titel:

Valgfri. Det er titlen på den information, der gives til brugeren. Hvis det ikke er givet, vil  Microsoft Word  være standardtitlen.

Hjælpefil og kontekst:

• Valgfri. Hjælpefilen identificerer den hjælpefil, der er tilgængelig på den lokale disk, og som kan leveres som hjælp i en dialogboks
• Valgfri. Kontekst er et numerisk udtryk, som bruges til at identificere hjælpeemnet ved det unikke nummer.

Eksempel på meddelelsesbokskode

'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

Produktion:

Dialog- og inputbokse VBA-kode

Inputboks er en simpel dialog, der giver os mulighed for at bede brugeren om nogle oplysninger. Lad os blive bekendt med VBA-koden ved hjælp af et eksempel.

Syntaks:

InputBox(Prompt, Titel, Default, XPos, YPos, HelpFile, HelpContextId, Type)

Syntaks forklaring:

Hurtig:

Påkrævet. Det er den information, der kan gives til brugeren. Det skal indsættes i det  dobbelte anførselstegn .

Titel:

Valgfri. Det er titlen på den information, der gives til brugeren. Hvis det ikke er givet, vil  Microsoft Word  være standardtitlen.

Standard:

Valgfri. Den viser standardværdien inde i tekstboksen, før brugeren indtaster en værdi. Hvis det ikke er angivet, vil tekstboksen være tom.

XPos:

Valgfri. Den bruges som position på X-aksen. Fra venstre mod højre

YPos:

Valgfri. Den bruges som position på Y-aksen. Fra top til bund

Hjælpefil og HelpContext ID:

• Valgfri. Hjælpefilen identificerer den hjælpefil, der er tilgængelig på den lokale disk, og som kan leveres som hjælp i en dialogboks
• Valgfri. HelpContext ID er id-nummeret for hjælpefilen.

Indtastningsbokskode:

'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

Produktion: