Как да създадете полета за въвеждане и съобщения в документ на Word с VBA?

Последна актуализация: юли 2020 г.; Приложимост: Office 365,2019, 2016, 2013.

Понякога бихме искали да направим нашите Word документи по-интерактивни и дори да уловим някои потребителски данни. Въведете полета за съобщения и за въвеждане.

Както подсказва името, кутията за съобщения е част от информация, която се показва на потребителите на документа. Кутиите за въвеждане са инструмент за улавяне на информация от потребителя.

Тази публикация съдържа цялата информация и примерни кодове, които ще ви трябват, за да създавате напълно функционални документи със съобщение на Visual Basic за приложения (VBA) и полета за въвеждане за Microsoft Word.

Как да добавя VBA код в Word?

Преди да продължим и да обясним как да добавите полета за съобщения и въвеждане, ето кратко опресняване как да добавите своя персонализиран VBA код към документ на Word.

• Първо, продължете и активирайте раздела за разработчици .
• Сега натиснете бутона  Visual Basic от  раздела Developer  . Това ще отвори редактора на Visual Basic.

• Маркирайте своя документ.
• Щракнете върху  Вмъкване  и след това изберете  Модул .

• Копирайте кода, който предоставяме по-долу, в модула, който току-що създадохте във вашия модул.
• Щракнете върху Save. Предоставете име на документа си, ако бъдете подканени.
• Затворете редактора на Visual Basic.

Кутии за съобщения VBA код

Синтаксис:

MsgBox (подкана, бутони, заглавие, помощен файл, контекст)

Обяснение на синтаксиса:

Подкана:

Задължително. Това е информацията, която може да бъде предоставена на потребителя. Трябва да се вмъкне в  двойните кавички .

Бутони:

По избор. Бутоните са този вид бутони, които се дават на информацията на потребителите. Има различни бутони, налични за MsgBox() и те могат да бъдат намерени на снимките по-долу.

Заглавие:

По избор. Това е заглавието на информацията, предоставена на потребителя. Ако не е дадено,  Microsoft word  ще бъде заглавието по подразбиране.

Помощен файл и контекст:

• По избор. Helpfile ще идентифицира Помощния файл, наличен на локалния диск, който може да бъде предоставен като помощ в диалогов прозорец
• По избор. Контекстът е числов израз, който се използва за идентифициране на помощната тема чрез уникалния номер.

Примерен код на кутията за съобщения

'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

Изход:

Диалогови полета и полета за въвеждане VBA код

Полето за въвеждане е прост диалогов прозорец, който ни позволява да подканим потребителя за някаква информация. Нека се запознаем с VBA кода с помощта на пример.

Синтаксис:

InputBox(подкана, заглавие, по подразбиране, XPos, YPos, HelpFile, HelpContextId, Type)

Обяснение на синтаксиса:

Подкана:

Задължително. Това е информацията, която може да бъде предоставена на потребителя. Трябва да се вмъкне в  двойните кавички .

Заглавие:

По избор. Това е заглавието на информацията, предоставена на потребителя. Ако не е дадено,  Microsoft word  ще бъде заглавието по подразбиране.

По подразбиране:

По избор. Той показва стойността по подразбиране в текстовото поле, преди потребителят да въведе стойност. Ако не е посочено, текстовото поле ще бъде празно.

XPos:

По избор. Използва се като позиция по оста X. От ляво на дясно

YPos:

По избор. Използва се като позиция по оста Y. От горе до долу

Помощен файл и HelpContext ID:

• По избор. Helpfile ще идентифицира Помощния файл, наличен на локалния диск, който може да бъде предоставен като помощ в диалогов прозорец
• По избор. HelpContext ID е идентификационният номер на помощния файл.

Код на полето за въвеждане:

'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

Изход: