Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Senaste uppdatering: juli 2020; Tillämplighet: Office 365,2019, 2016, 2013.

Ibland skulle vi vilja göra våra Word-dokument mer interaktiva och till och med fånga in lite användarinput. Ange meddelande- och inmatningsrutor.

Som namnet antyder är en meddelanderuta en bit information som visas för dokumentanvändarna. Inmatningsrutor är viktiga för att fånga information från användaren.

Det här inlägget har all information och kodexempel du behöver för att skapa fullt fungerande dokument med Visual Basic for Applications (VBA)-meddelanden och inmatningsrutor för Microsoft Word.

Hur lägger man till VBA-kod i Word?

Innan vi går vidare och förklarar hur du lägger till meddelande- och inmatningsrutor, här är en snabb uppdatering om hur du lägger till din anpassade VBA-kod i ett Word-dokument.

  • Först och främst, fortsätt och aktivera fliken Utvecklare .
  • Tryck nu på  Visual Basic - knappen från  fliken Utvecklare  . Detta öppnar Visual Basic Editor.

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

  • Markera ditt dokument.
  • Klicka  på Infoga  och välj sedan  Modul .

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

  • Kopiera koden som vi tillhandahåller nedan till den modul du just skapade i din modul.
  • Klicka på Spara. Ange ett namn till ditt dokument om du uppmanas.
  • Stäng Visual Basic Editor.

Meddelandeboxar VBA-kod

Syntax:

MsgBox(prompt,knappar,titel,hjälpfil,kontext)

Syntaxförklaring:

Prompt:

Nödvändig. Det är informationen som kan ges till användaren. Det ska infogas innanför  dubbla citattecken .

Knappar:

Frivillig. Knappar är den typ av knappar som ges till användarens information. Det finns olika knappar tillgängliga för MsgBox() och de finns på bilderna nedan.

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Titel:

Frivillig. Det är titeln för informationen som ges till användaren. Om det inte anges kommer  Microsoft Word  att vara standardtiteln.

Hjälpfil och sammanhang:

  • Frivillig. Hjälpfilen identifierar hjälpfilen som är tillgänglig på den lokala disken som kan tillhandahållas som hjälp i en dialogruta
  • Frivillig. Kontext är ett numeriskt uttryck som används för att identifiera hjälpämnet med det unika numret.

Exempel på meddelandeboxkod

'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:

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Dialog- och inmatningsboxar VBA-kod

Inmatningsrutan är en enkel dialogruta som låter oss fråga användaren om viss information. Låt oss bekanta oss med VBA-koden med hjälp av ett exempel.

Syntax:

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

Syntaxförklaring:

Prompt:

Nödvändig. Det är informationen som kan ges till användaren. Det ska infogas innanför  dubbla citattecken .

Titel:

Frivillig. Det är titeln för informationen som ges till användaren. Om det inte anges kommer  Microsoft Word  att vara standardtiteln.

Standard:

Frivillig. Den visar standardvärdet i textrutan innan användaren skriver för ett värde. Om det inte anges kommer textrutan att vara tom.

XPos:

Frivillig. Den används som position på X-axeln. Från vänster till höger

YPos:

Frivillig. Den används som position på Y-axeln. Från topp till tå

Hjälpfil och HelpContext ID:

  • Frivillig. Hjälpfilen identifierar hjälpfilen som är tillgänglig på den lokala disken som kan tillhandahållas som hjälp i en dialogruta
  • Frivillig. HelpContext ID är ID-numret för hjälpfilen.

Inmatningsrutakod:

'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:

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Hur skapar man inmatnings- och meddelanderutor i ett Word-dokument med VBA?

Leave a Comment

Fixat Fortnite-inställningar sparas inte Windows 11 & 10

Fixat Fortnite-inställningar sparas inte Windows 11 & 10

Undrar varför mina Fortnite-inställningar fortsätter att återställas, då är den här guiden för dig, här hittar du hur du fixar Fortnite-inställningar som inte sparar problem

Hur man ställer in tabbstopp i Microsoft Word

Hur man ställer in tabbstopp i Microsoft Word

Lär dig att ställa in tabbstopp i Word för optimal dokumentformattering. Anpassa tabbstopp för att förbättra din arbetsflöde på Windows och Mac.

Hur man gör en försättssida i Google Dokument

Hur man gör en försättssida i Google Dokument

Skapar du ett akademiskt dokument i Google Dokument? Denna guide hjälper dig att infoga ett professionellt försättsblad med tydliga instruktioner.

Hur man ändrar teckensnitt på Xiaomi

Hur man ändrar teckensnitt på Xiaomi

Hur ändrar man typsnitt på Xiaomi? Följ instruktionerna för att ändra teckensnittsstilen och storleken på din Xiaomi-enhet.

[100% löst] Hur åtgärdar jag meddelandet Fel vid utskrift i Windows 10?

[100% löst] Hur åtgärdar jag meddelandet Fel vid utskrift i Windows 10?

Får felmeddelande om utskrift på ditt Windows 10-system, följ sedan korrigeringarna i artikeln och få din skrivare på rätt spår...

Hur man fångar och spelar en Microsoft Teams-inspelning

Hur man fångar och spelar en Microsoft Teams-inspelning

Du kan enkelt besöka dina möten igen om du spelar in dem. Så här spelar du in en Microsoft Teams-inspelning för ditt nästa möte.

Hur man återställer standardappar på Android

Hur man återställer standardappar på Android

När du öppnar en fil eller klickar på en länk väljer din Android-enhet en standardapp för att öppna den. Du kan återställa dina standardappar på Android med den här guiden.

FIXAT: Entitlement.diagnostics.office.com certifikatfel

FIXAT: Entitlement.diagnostics.office.com certifikatfel

FIXAT: Entitlement.diagnostics.office.com certifikatfel

Topp 10 spelwebbplatser som inte blockerades av skolan 2022

Topp 10 spelwebbplatser som inte blockerades av skolan 2022

För att ta reda på de bästa spelsajterna som inte blockeras av skolor, läs artikeln och välj den bästa oblockerade spelwebbplatsen för skolor, högskolor och verk

FIXAT: Skrivare i feltillstånd [HP, Canon, Epson, Zebra & Brother]

FIXAT: Skrivare i feltillstånd [HP, Canon, Epson, Zebra & Brother]

Om du står inför problemet med skrivaren i feltillstånd på Windows 10 PC och inte vet hur du ska hantera det, följ dessa lösningar för att fixa det.