Jak tworzyć pola wprowadzania i wiadomości w dokumencie Word za pomocą VBA?

Ostatnia aktualizacja: lipiec 2020; Zakres obowiązywania: Office 365,2019, 2016, 2013.

Czasami chcielibyśmy uczynić nasze dokumenty Worda bardziej interaktywnymi, a nawet przechwycić dane wejściowe użytkownika. Wprowadź wiadomości i pola wprowadzania .

Jak sama nazwa wskazuje, okienko komunikatu to informacja, która jest wyświetlana użytkownikom dokumentu. Pola wprowadzania są niezbędne do przechwytywania informacji od użytkownika.

Ten post zawiera wszystkie informacje i próbki kodu potrzebne do tworzenia w pełni funkcjonalnych dokumentów z komunikatami w języku Visual Basic for Applications (VBA) i polami wejściowymi dla programu Microsoft Word.

Jak dodać kod VBA do Worda?

Zanim przejdziemy dalej i wyjaśnimy, jak dodawać pola wiadomości i wprowadzania, oto krótkie przypomnienie, jak dodać niestandardowy kod VBA do dokumentu Word.

• Po pierwsze, śmiało włącz kartę Deweloper .
• Teraz naciśnij przycisk  Visual Basic na  karcie Deweloper  . Spowoduje to otwarcie Edytora Visual Basic.

• Zaznacz swój dokument.
• Kliknij  Wstaw  , a następnie wybierz  Moduł .

• Skopiuj poniższy kod do modułu, który właśnie utworzyłeś w swoim module.
• Kliknij Zapisz. Podaj nazwę dokumentu, jeśli zostaniesz o to poproszony.
• Zamknij Edytor Visual Basic.

Kod VBA skrzynek wiadomości

Składnia:

MsgBox(monit,przyciski,tytuł,plik pomocy,kontekst)

Wyjaśnienie składni:

Podpowiedź:

Wymagany. To informacje, które można przekazać użytkownikowi. Należy go wstawić w  podwójny cudzysłów .

Guziki:

Opcjonalny. Przyciski to te rodzaje przycisków, które są udostępniane użytkownikom. Dla MsgBox() dostępne są różne przyciski, które można znaleźć na poniższych obrazkach.

Tytuł:

Opcjonalny. Jest to tytuł informacji podawanych użytkownikowi. Jeśli nie zostanie podany,  domyślnym tytułem będzie słowo Microsoft  .

Plik pomocy i kontekst:

• Opcjonalny. Helpfile zidentyfikuje plik pomocy dostępny na dysku lokalnym, który może być dostarczony jako pomoc w oknie dialogowym
• Opcjonalny. Kontekst to wyrażenie liczbowe, które służy do identyfikacji tematu pomocy za pomocą unikalnego numeru.

Przykładowy kod pola wiadomości

'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

Wyjście:

Kod VBA okien dialogowych i pól wejściowych

Pole wprowadzania to proste okno dialogowe, które pozwala nam zapytać użytkownika o pewne informacje. Zapoznajmy się z kodem VBA na przykładzie.

Składnia:

InputBox (Podpowiedź, Tytuł, Domyślne, XPos, YPos, HelpFile, HelpContextId, Typ)

Wyjaśnienie składni:

Podpowiedź:

Wymagany. To informacje, które można przekazać użytkownikowi. Należy go wstawić w  podwójny cudzysłów .

Tytuł:

Opcjonalny. Jest to tytuł informacji podawanych użytkownikowi. Jeśli nie zostanie podany,  domyślnym tytułem będzie słowo Microsoft  .

Domyślna:

Opcjonalny. Wyświetla wartość domyślną w polu tekstowym, zanim użytkownik wpisze wartość. Jeśli nie zostanie określony, pole tekstowe będzie puste.

XPos:

Opcjonalny. Jest używany jako pozycja na osi X. Od lewej do prawej

Pozycja Y:

Opcjonalny. Jest używany jako pozycja na osi Y. Od góry do dołu

Helpfile i HelpContext ID:

• Opcjonalny. Helpfile zidentyfikuje plik pomocy dostępny na dysku lokalnym, który może być dostarczony jako pomoc w oknie dialogowym
• Opcjonalny. HelpContext ID to numer identyfikacyjny pliku pomocy.

Kod pola wejściowego:

'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

Wyjście: