Пример 3. Рассмотрим способ вызова диалога сообщений с использованием всех указанных параметровРассмотрим способ вызова диалога сообщений с использованием всех указанных параметров. При этом параметр Response выведем в окно отладки для просмотра его значения. 1. измените текст макроса из примера 2 следующим образом
Sub Макрос1() Название_окна = «Мой первый диалог» Сообщение = «мое первое сообщение» Стиль_окна = vbOKCancel + vbInformation Ответ = MsgBox(Сообщение, Стиль_окна, Название_окна) Debug.Print Ответ End Sub
2. запустите макрос и убедитесь в правильности работы диалога сообщений. 3. просмотрите окно отладки и убедитесь, что числовая константа соответствует нажатой клавише.
Задание 2.1. Меняя стиль окна в макросе из примера 3, исследуйте несколько возможных способов оформления окна сообщений, оснащая его различным набором кнопок и значков.
Задание 2.2. Измените макрос из примера 3 так, чтобы имя нажатой клавиши выводилось в другое диалоговое окно, вместо вывода числовой константы в окно отладки. Подсказка: для этого воспользуйтесь оператором условного перехода.
If Ответ = 1 Then Имя = “OK” If Ответ = 2 Then Имя = “Cancel” If Ответ = 3 Then Имя = “Abort” If Ответ = 4 Then Имя = “Retry” If Ответ = 5 Then Имя = “Ignore” If Ответ = 6 Then Имя = “Yes” If Ответ = 7 Then Имя = “No” If Ответ < 1 And Ответ > 7 Then Имя=“Имя не определено”
Задание 2. 3. Измените макрос из задания 1 так, чтобы имя кнопки определялось не оператором условного перехода, а оператором множественного выбора. Подсказка:
Select Case Ответ Case 1: Имя = “Ok” Case 2: Имя = “Cancel” Case 3: Имя = “Abort” Case 4: Имя = “Retry” Case 5: Имя = “Ignore” Case 6: Имя = “Yes” Case 7: Имя = “No” Case Else: Имя = “Имя не определено” End Select
Пример 4. Рассмотрим, каким образом повторяющиеся действия, можно организовать в цикл. Для этого: 1. напишите несколько слов в документе Word. 2. включите запись 3. выделите слово (Ctrl+Shift+стрелка вправо), скопируйте его в буфер обмена и вставьте 5 раз подряд. 4. остановите запись и просмотрите текст макроса в редакторе VBA
Sub Макрос1() Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Copy Selection.Paste Selection.Paste Selection.Paste Selection.Paste Selection.Paste End Sub
Ваш макрос может несколько отличаться от вышеуказанного, если при записи вы совершили лишние действия. Преобразуйте данный макрос в цикл с заданным числом повторений в редакторе VBA следующим образом:
Sub Макрос1() Dim counter As Integer Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Copy For counter = 1 To 5 Step 1 Selection.Paste Next End Sub
Убедитесь в правильности его работы.
Пример 5. Назначение макросу комбинации клавиш для быстрого вызова: 1. нажмите кнопку «записать макрос» 2. введите имя «Макрос2» 3. сделайте макрос доступным для документа 4. выберите «назначение макроса клавишам» 5. назначьте сочетание клавиш, нажав на клавиатуре комбинацию, например: Ctrl+: 6. выберите сохранение изменений «в документе» 7. нажмите кнопку «назначить», а потом «закрыть» 8. в качестве действий макроса определите следующее: · Правка→Выделить все · Формат→Шрифт→Полужирный 9. остановите запись 10. верните начертание шрифта к прежнему виду 11. откройте редактор VBA
Sub Макрос2() Selection.WholeStory With Selection.Font .Bold = True .Italic = False End With End Sub
12. вернитесь в редактор Word, нажмите установленную вами комбинацию клавиш для быстрого запуска макроса и убедитесь в его правильной работе.
Пример 6. Назначение макросу кнопки на панели для быстрого вызова: 1. нажмите кнопку «записать макрос» 2. введите имя «Макрос2» 3. сделайте макрос доступным для документа 4. выберите «назначение макроса панели» 5. зацепите мышкой иконку команды из категории макросов и перетащите ее на панель Word 6. выберите сохранение изменений «в документе» Все остальные действия выполняйте аналогично действиям из примера 5. Для запуска макроса можно использовать выведенную Вами на панель инструментов кнопку. Внимание! Для изменения иконки воспользуйтесь пунктом меню: Вид→Панели инструментов→Настройка. После чего щелкните правой кнопкой мыши на панели, чью иконку вы хотите изменить. В раскрывшемся меню воспользуйтесь пунктами: Изменить значок Выбрать значок Стили: основной, только текст, значок и текст.
Пример 7. Назначение макросу кнопки на документе для быстрого вызова. 1. нажмите кнопку «режим конструктора» на панели VBA в среде Word. 2. установите курсор ввода в том месте документа, где бы вы хотели расположить кнопку. 3. щелкните по кнопке, нарисованной на панели элементов управления. 4. на месте курсора должна появиться кнопка под названием «CommandButton1». Местоположение и размеры данной кнопки можно менять путем перетаскивания ее мышкой в пределах документа. 5. для написания реакции на событие нажатия данной кнопки, двойным щелчком по ней войдите в редактор VBA. 6. в редакторе наберите команду Shell “Calc.exe” 7. в окне свойств кнопки откройте свойства по категориям и измените название кнопки в поле «Caption» вместо «CommandButton1» наберите «Калькулятор». Если калькулятор установлен в ОС, то он должен отобразиться поверх документа.
|
