Como crear caixas de entrada e mensaxes nun documento de Word con VBA?

Última actualización: xullo de 2020; Aplicabilidade: Office 365,2019, 2016, 2013.

Ás veces, gustaríanos facer que os nosos documentos de Word sexan máis interactivos e mesmo capturar algunha entrada do usuario. Introduza mensaxes e caixas de entrada.

Como o nome indica, unha caixa de mensaxes é unha información que se mostra aos usuarios do documento. As caixas de entrada son fundamentais para capturar información do usuario.

Esta publicación contén toda a información e mostras de código que necesitarás para crear documentos totalmente funcionais con mensaxes e caixas de entrada de Visual Basic para aplicacións (VBA) para Microsoft Word.

Como engadir código VBA a Word?

Antes de seguir adiante e explicar como engadir caixas de mensaxes e de entrada, aquí tes unha actualización rápida sobre como engadir o teu código VBA personalizado a un documento de Word.

• En primeiro lugar, continúa e activa a pestana Programador .
• Agora, prema o  botón Visual Basic da  pestana Programador  . Isto abrirá o Editor de Visual Basic.

• Resalte o seu documento.
• Fai clic  en Inserir  e logo selecciona  Módulo .

• Copia o código que proporcionamos a continuación no módulo que acabas de crear no teu módulo.
• Fai clic en Gardar. Proporcione un nome ao documento se se lle solicita.
• Pecha o Editor de Visual Basic.

Caixas de mensaxes Código VBA

Sintaxe:

MsgBox (indicación, botóns, título, ficheiro de axuda, contexto)

Explicación da sintaxe:

Solicitude:

Obrigatorio. É a información que se lle pode dar ao usuario. Debe inserirse entre  comiñas dobres .

Botóns:

Opcional. Os botóns son ese tipo de botóns que se dan á información dos usuarios. Hai varios botóns dispoñibles para MsgBox() e pódense atopar nas imaxes de abaixo.

Título:

Opcional. É o título da información que se lle dá ao usuario. Se non se indica,  Microsoft Word  será o título predeterminado.

Ficheiro de axuda e contexto:

• Opcional. O ficheiro de axuda identificará o ficheiro de axuda dispoñible no disco local que se pode proporcionar como axuda nunha caixa de diálogo
• Opcional. O contexto é unha expresión numérica que se usa para identificar o tema de axuda mediante un número único.

Exemplo de código da caixa de mensaxes

'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

Saída:

Caixas de diálogo e entrada Código VBA

A caixa de entrada é un diálogo sinxelo que nos permite solicitar información ao usuario. Imos familiarizarnos co código VBA usando un exemplo.

Sintaxe:

InputBox (Solicitude, Título, Predeterminado, XPos, YPos, HelpFile, HelpContextId, Type)

Explicación da sintaxe:

Solicitude:

Obrigatorio. É a información que se lle pode dar ao usuario. Debe inserirse entre  comiñas dobres .

Título:

Opcional. É o título da información que se lle dá ao usuario. Se non se indica,  Microsoft Word  será o título predeterminado.

Por defecto:

Opcional. Mostra o valor predeterminado dentro da caixa de texto, antes de que o usuario escriba un valor. Se non se especifica, a caixa de texto estará baleira.

XPos:

Opcional. Utilízase como posición no eixe X. De esquerda a dereita

YPos:

Opcional. Utilízase como posición no eixe Y. De arriba a abaixo

Arquivo de axuda e ID de contexto de axuda:

• Opcional. O ficheiro de axuda identificará o ficheiro de axuda dispoñible no disco local que se pode proporcionar como axuda nunha caixa de diálogo
• Opcional. HelpContext ID é o número de identificación do ficheiro de axuda.

Código da caixa de 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

Saída: