Hvordan lage input- og meldingsbokser i et Word-dokument med VBA?

Siste oppdatering: juli 2020; Anvendelse: Office 365,2019, 2016, 2013.

Noen ganger ønsker vi å gjøre Word-dokumentene våre mer interaktive og til og med fange opp noen brukerinndata. Skriv inn meldings- og inndatabokser.

Som navnet antyder er en meldingsboks en informasjon som vises til dokumentbrukerne. Inndatabokser er instrumentelle for å fange opp informasjon fra brukeren.

Dette innlegget har all informasjon og kodeeksempler du trenger for å lage fullt funksjonelle dokumenter med Visual Basic for Applications (VBA) meldinger og inndatabokser for Microsoft Word.

Hvordan legge til VBA-kode i Word?

Før vi går videre og forklarer hvordan du legger til meldings- og inndatabokser, her er en rask oppdatering om hvordan du legger til din egendefinerte VBA-kode i et Word-dokument.

• Først av, fortsett og aktiver Utvikler - fanen.
• Trykk nå på  Visual Basic -knappen fra  Utvikler  - fanen. Dette vil åpne Visual Basic Editor.

• Uthev dokumentet ditt.
• Klikk  på Sett inn  og velg deretter  Module .

• Kopier koden vi gir nedenfor inn i modulen du nettopp opprettet i modulen din.
• Klikk på Lagre. Gi et navn til dokumentet hvis du blir bedt om det.
• Lukk Visual Basic Editor.

Meldingsbokser VBA-kode

Syntaks:

MsgBox(ledetekst,knapper,tittel,hjelpefil,kontekst)

Syntaks forklaring:

Spør:

Obligatorisk. Det er informasjonen som kan gis til brukeren. Det skal settes inn i det  doble anførselstegn .

Knapper:

Valgfri. Knapper er den typen knapper som gis til brukerinformasjon. Det er forskjellige knapper tilgjengelig for MsgBox() og de finner du på bildene nedenfor.

Tittel:

Valgfri. Det er tittelen på informasjonen som gis til brukeren. Hvis ikke gitt,  vil Microsoft Word  være standardtittelen.

Hjelpefil og kontekst:

• Valgfri. Hjelpefilen vil identifisere hjelpefilen som er tilgjengelig på lokal disk, som kan gis som hjelp i en dialogboks
• Valgfri. Kontekst er numerisk uttrykk som brukes til å identifisere hjelpeemnet ved det unike nummeret.

Eksempel på meldingsbokskode

'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

Produksjon:

Dialogbokser og inndatabokser VBA-kode

Inndataboks er en enkel dialogboks som lar oss be brukeren om informasjon. La oss bli kjent med VBA-koden ved å bruke et eksempel.

Syntaks:

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

Syntaks forklaring:

Spør:

Obligatorisk. Det er informasjonen som kan gis til brukeren. Det skal settes inn i det  doble anførselstegn .

Tittel:

Valgfri. Det er tittelen på informasjonen som gis til brukeren. Hvis ikke gitt,  vil Microsoft Word  være standardtittelen.

Misligholde:

Valgfri. Den viser standardverdien inne i tekstboksen, før brukeren skriver inn en verdi. Hvis ikke spesifisert, vil tekstboksen være tom.

XPos:

Valgfri. Den brukes som posisjon på X-aksen. Fra venstre til høyre

YPos:

Valgfri. Den brukes som posisjon på Y-aksen. Fra topp til bunn

Hjelpefil og hjelpekontekst-ID:

• Valgfri. Hjelpefilen vil identifisere hjelpefilen som er tilgjengelig på lokal disk, som kan gis som hjelp i en dialogboks
• Valgfri. HelpContext ID er ID-nummeret for hjelpefilen.

Inndatabokskode:

'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

Produksjon: