Како креирати оквире за унос и поруке у Ворд документу са ВБА?

Последње ажурирање: јул 2020; Применљивост: Оффице 365,2019, 2016, 2013.

Понекад бисмо желели да наше Ворд документе учинимо интерактивнијима, па чак и да ухватимо неки кориснички унос. Унесите поруке и поља за унос.

Као што име сугерише, оквир за поруку је део информације који се приказује корисницима документа. Кутије за унос су инструменталне за прикупљање информација од корисника.

Овај пост садржи све информације и узорке кода који су вам потребни за креирање потпуно функционалних докумената са Висуал Басиц за апликације (ВБА) порукама и кутијама за унос за Мицрософт Ворд.

Како додати ВБА код у Ворд?

Пре него што наставимо и објаснимо како да додате оквире за поруке и унос, ево кратког освежења о томе како да додате свој прилагођени ВБА код у Ворд документ.

• Прво, наставите и омогућите картицу Програмер .
• Сада притисните дугме  Висуал Басиц са  картице Девелопер  . Ово ће отворити Висуал Басиц Едитор.

• Истакните свој документ.
• Кликните  на Убаци  , а затим изаберите  Модул .

• Копирајте код који пружамо у наставку у модул који сте управо креирали у свој модул.
• Кликните на Сачувај. Наведите име свом документу ако се то од вас затражи.
• Затворите Висуал Басиц Едитор.

Кутије за поруке ВБА код

Синтакса:

МсгБок(промпт,дугмад,наслов,фајл помоћи,контекст)

Објашњење синтаксе:

Промпт:

Потребан. То је информација која се може дати кориснику. Треба га уметнути унутар  двоструког наводника .

Дугмад:

Опционо. Дугмад су она врста дугмади која се дају информацијама о корисницима. Доступна су различита дугмад за МсгБок() и могу се наћи на сликама испод.

Наслов:

Опционо. То је наслов за информације које се дају кориснику. Ако није дата,  Мицрософт ворд  ће бити подразумевани наслов.

Фајл помоћи и контекст:

• Опционо. Хелпфиле ће идентификовати датотеку помоћи која је доступна на локалном диску која се може пружити као помоћ у оквиру за дијалог
• Опционо. Контекст је нумерички израз који се користи за идентификацију теме помоћи јединственим бројем.

Пример кода поља за поруке

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

Излаз: