1.2.2. Написання тексту процедури і її модернізація.

У даному прикладі розглядається спосіб ручного створення вихідного коду процедури. Таку процедуру можна додати у вже існуючий модуль VBA чи в новий модуль. Код нової процедури у вже існуючому модулі потрібно розмістити після оператора End Sub, що завершує попередню процедуру, і перед оператором Sub <ім'я> ( ) , що починає наступну процедуру в модулі. Нова процедура може бути цілком написана набором її тексту на клавіатурі. У редакторі VBA є засоби, що прискорюють процес набору. Наприклад, після натискання на Enter після введення ключового слова Sub і імені процедури редактор автоматично додає ключові слова End Sub. Крім того, на екрані в ході набору можуть з'являтися спливаючі вікна з підказками по списках аргументів убудованих у текст процедур.

Розглянемо порядок дій для створення нової процедури в новому модулі VBA, що виводить деяке повідомлення на екран, а також спробуємо модифікувати код процедури.

1. Створіть новий документ і збережете його з ім'ям, наприклад, Мої макроси.

2. Натисніть Alt+F11 для активізації редактора VBА.

3. У лівому верхнім вікні Project Explorer виділите проект Мої макроси, у якому буде збережена створювана процедура.

4. Виконайте команду InsertModule для додавання нового модуля до проекту. Редактор додає новий модуль і відкриває в правій частині вікно коду.

5. У лівому нижнім вікні Properties Module 1 перейменуйте новий модуль, давши йому ім'я, наприклад, FirstProg.

6. Переконаєтеся, що курсор вставки тексту знаходиться на початку порожнього рядка в FirstProg (Соdе) і введіть наступний текст, натискаючи на Enter наприкінці кожного рядка для початку нового рядка:

Sub Hello ( )

MsgBox”Здраствуй, світ!!!”

MsgBox”Я програмую макрос для MS Word”

End Sub

Збережіть документ за допомогою відповідних команд пункту меню File, повернетеся у вікно документа (наприклад, комбінацією Alt+Q ) і запустите макрос Hello. Вікна повідомлень, що з'являються, (Message Boxes) потрібно закривати щигликом на кнопці ОК.

7. Зміните 2-ій і 3-ій рядки тексту процедури, ввівши у функцію MsgBox два додаткових параметри: один – порожній параметр, що позначається як відсутність його двома підряд наступними комами; другий – текст заголовка вікна повідомлення, що заміняє стандартний заголовок вікна. Наприклад, так:

Sub Hello ( )

MsgBox”Здраствуй, світ!!!” ,, ”Я вітаю світ”

MsgBox”Я програмую макрос для MS Word”,,”Про мене”

End Sub

8. Запустите макрос Hello ще раз.

9. Так як макрос Hello записаний у модулі FirstProg проекту Мої макроси, то вибір зі списку - поки що єдиний спосіб виконання цього макросу Hello. Крім того, спроба призначити створений макрос значку або кнопці на панелі не увінчається успіхом, тому що це можна зробити лише для макросів, що маються в шаблоні, наприклад, у Normal.dot. Однак після копіювання модуля FirstProg у Normal.dot зазначене обмеження знімається.

Тепер проробіть наступне:

10. Командою СервисМакросыМакрос викличте список макросів з Мої_макроси (документ), що складається з одного макросу Hello, щигликом по кнопці Организатор викликати відповідне вікно й у ньому кнопкою Копировать скопіюйте модуль FirstProg у Normal.dot.

11. Командою СервисНастройка викличте відповідне вікно, на закладці Команды виберіть серед категорій Макросы, виділите макрос Normal.FirstProg.Hello і перетягніть рамку, що виділяє, на одну з верхніх панелей Word, наприклад, на панель Стандартная. Після цього можна змінити виділений об'єкт (майбутню кнопку виконання макросу), якось вибрати значок, змінити напис і т.д. По закінченні редагування кнопкою Закрыть видалите вікно Настройка.