Пример 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» наберите «Калькулятор». Если калькулятор установлен в ОС, то он должен отобразиться поверх документа.