Com crear quadres dentrada i missatges en un document de Word amb VBA?

Última actualització: juliol de 2020; Aplicabilitat: Office 365,2019, 2016, 2013.

De vegades, ens agradaria fer que els nostres documents de Word siguin més interactius i fins i tot capturar algunes aportacions dels usuaris. Introduïu el missatge i els quadres d'entrada.

Com el seu nom indica, un quadre de missatge és una informació que es mostra als usuaris del document. Els quadres d'entrada són instrumentals per capturar informació de l'usuari.

Aquesta publicació conté tota la informació i mostres de codi que necessiteu per crear documents totalment funcionals amb missatges i quadres d'entrada de Visual Basic per a aplicacions (VBA) per a Microsoft Word.

Com afegir codi VBA a Word?

Abans de continuar i explicar com afegir quadres de missatges i d'entrada, aquí teniu una informació ràpida sobre com afegir el vostre codi VBA personalitzat a un document de Word.

• En primer lloc, seguiu endavant i activeu la pestanya Desenvolupador .
• Ara, premeu el  botó  Visual Basic de la pestanya Desenvolupador  . Això obrirà l'Editor de Visual Basic.

• Ressalteu el vostre document.
• Feu clic  a Insereix  i, a continuació, seleccioneu  Mòdul .

• Copieu el codi que us proporcionem a continuació al mòdul que acabeu de crear al vostre mòdul.
• Feu clic a Desa. Proporcioneu un nom al vostre document si se us demana.
• Tanqueu l'Editor de Visual Basic.

Codi VBA de les caixes de missatge

Sintaxi:

MsgBox (indicador, botons, títol, fitxer d'ajuda, context)

Explicació de la sintaxi:

Petició:

Obligatori. És la informació que es pot donar a l'usuari. S'ha d'inserir dins de les  cometes dobles .

Botons:

Opcional. Els botons són aquells tipus de botons que es donen a la informació dels usuaris. Hi ha diversos botons disponibles per a MsgBox() i es poden trobar a les imatges següents.

Títol:

Opcional. És el títol de la informació donada a l'usuari. Si no es proporciona,  Microsoft Word  serà el títol predeterminat.

Fitxer d'ajuda i context:

• Opcional. Helpfile identificarà el fitxer d'ajuda disponible al disc local que es pot proporcionar com a ajuda en un quadre de diàleg
• Opcional. El context és una expressió numèrica que s'utilitza per identificar el tema d'ajuda mitjançant el número únic.

Exemple de codi de bústia de missatge

'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

Sortida:

Quadres de diàleg i d'entrada Codi VBA

El quadre d'entrada és un diàleg senzill que ens permet demanar informació a l'usuari. Familiaritzem-nos amb el codi VBA amb un exemple.

Sintaxi:

InputBox (indicador, títol, predeterminat, XPos, YPos, HelpFile, HelpContextId, Tipus)

Explicació de la sintaxi:

Petició:

Obligatori. És la informació que es pot donar a l'usuari. S'ha d'inserir dins de les  cometes dobles .

Títol:

Opcional. És el títol de la informació donada a l'usuari. Si no es proporciona,  Microsoft Word  serà el títol predeterminat.

Per defecte:

Opcional. Mostra el valor predeterminat dins del quadre de text, abans que l'usuari escrigui un valor. Si no s'especifica, el quadre de text estarà buit.

XPos:

Opcional. S'utilitza com a posició a l'eix X. D'esquerra a dreta

YPos:

Opcional. S'utilitza com a posició a l'eix Y. De dalt a baix

Fitxer d'ajuda i ID de context d'ajuda:

• Opcional. Helpfile identificarà el fitxer d'ajuda disponible al disc local que es pot proporcionar com a ajuda en un quadre de diàleg
• Opcional. HelpContext ID és el número d'identificació del fitxer d'ajuda.

Codi de caixa d'entrada:

'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

Sortida: