Работа с формами! Word (VBA)
Формулировка задачи:
Доброго времени суток...
У меня есть проблемма, я изучаю VBA и сталкнулся с необходимостью использовать формы. В общем я не знаю как привязать к форме какие либо функции, например:
мне надо, что бы в определенной строчке (Lable) при вызове формы отображалось сочетание клавиш для определенного макроса. Я уже перерыл всю книгу VBA 2002 и в принципе ничего подобного не нашел, там только примеры использования форм, но не привязка какого либо макроса к самой форме. В хелпе тоже особо существенного не смог найти, единственное, что я нашел это initialize. На сколько я понимаю это зарузка каких - либо параметров в форму при её загрузке. В общем я в полной растерянности, так как не знаю как с этим работать.
Единственное, что я смог это сделать что бы при нажатии кнопки вылетал мэсадж бокс, с требуемой информацией, а надо что бы эта информация была в нужном мне Lable.
Помогите разобраться, или хотя бы направте мои мысли в нужную сторону.
Заранее благодарен.
У меня есть проблемма, я изучаю VBA и сталкнулся с необходимостью использовать формы. В общем я не знаю как привязать к форме какие либо функции, например:
мне надо, что бы в определенной строчке (Lable) при вызове формы отображалось сочетание клавиш для определенного макроса. Я уже перерыл всю книгу VBA 2002 и в принципе ничего подобного не нашел, там только примеры использования форм, но не привязка какого либо макроса к самой форме. В хелпе тоже особо существенного не смог найти, единственное, что я нашел это initialize. На сколько я понимаю это зарузка каких - либо параметров в форму при её загрузке. В общем я в полной растерянности, так как не знаю как с этим работать.
Единственное, что я смог это сделать что бы при нажатии кнопки вылетал мэсадж бокс, с требуемой информацией, а надо что бы эта информация была в нужном мне Lable.
Помогите разобраться, или хотя бы направте мои мысли в нужную сторону.
Заранее благодарен.
Решение задачи: «Работа с формами! Word (VBA)»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Initialize()
CustomizationContext = ActiveDocument
<font color="blue">For</font> <font color="blue">Each</font> myKey1 <font color="blue">In</font> _
KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, Command:=<font color="green">"FileNew"</font>)
myStr1 = myStr1 & myKey1.KeyString & vbCr
<font color="blue">Next</font> myKey1
Label1.Caption = myStr1
<font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д