4.6. Пример макроса

На основе автоматической записи создать в Microsoft Word макрос установки параметров страницы:

1. Запустить Microsoft Word;

2. Выполнить пункт команду СЕРВИС / МАКРОКОМАНДА (Tools / Macro) – откроется диалог Макро_Команда;

3. Нажать кнопку ЗАПИСАТЬ (Record) – откроется окно диалога ЗАПИСЬ_МАКРОКОМАНДЫ (Record Macro);

4. Указать имя макрокоманде, например SetPage (установка страницы);

5. В поле ОПИСАНИЕ (Description) дать краткое описание;

6. Нажать ОК (курсор примет вид стрелки с магнитофонной кассетой);

7. Выполнить действия, необходимые для установки параметров страницы:

7.1. Выполнить команду. ФАЙЛ / ПАРАМЕТРЫ_СТРАНИЦЫ (File / Page Setup) – откроется диалог ПАРАМЕТРЫ_СТРАНИЦЫ;

7.2. Задать нужные параметры и закрыть диалог, нажав ОК;

7.3. Закончить запись макроса, щелкнув кнопку СТОП на панели ЗАПИСЬ_ МАКРО;

8. Для проверки работы макроса набрать в документе несколько строк текста в формате, отличающемся от того, который записан в макросе; выделить строки; выполнить макрос;

9. Для просмотра макроса выполнить команду СЕРВИС/ МАКРОКОМАНДА, выбрать из списка нужную макрокоманду (в данном случае SetPage), нажать кнопку ПРАВКА (Edit) – откроется окно редактора с текстом макроса.

Для рассматриваемого примера текст макроса может иметь следующий вид:

Sub Main

FilePageSetup 'это имя подпрограммы, ниже идут установленные параметры

.Tab = "0",

.PaperSize = "0",

.TopMargin ="2.5 см",

.BottomMargin = "2.5 см",

... и т. д.

End Sub

Приложения п1. Некоторые виды ошибок

КОД	СОДЕРЖАНИЕ ОШИБКИ
5	Недопустимый вызов процедуры
6	Переполнение
7	Недостаточно памяти
9	Индекс вне заданного диапазона
11	деление на ноль
13	Несоответствие типа
24	прерывание устройства по времени (Time out)
25	общая ошибка устройства
27	конец бумаги
28	В стеке не хватает памяти
35	Процедура не определена
51	Внутренняя ошибка
52	недопустимое имя или номер файла
53	файл не найден
54	ошибочный режим файла
55	файл уже открыт
57	ошибка устройства ввода/вывода
58	файл уже существует
61	переполнение диска
64	недопустимое имя файла
68	устройство недоступно
70	доступ запрещен
71	диск не готов
72	ошибка носителя
75	ошибка доступа
76	путь не найден.
290	Неправильный формат данных
321	Недопустимый формат файла
360	Объект уже загружен
361	невозможно загрузить или выгрузить объект
364	Объект был выгружен
380	Недопустимое значение свойства
389	Нажата недопустимая клавиша
419	Использование объекта запрещено
423	Свойство или метод не найдены
424	Требуется объект
427	Недопустимый тип объекта; требуется элемент управления типа меню
438	Объект не поддерживает этот метод или свойство
444	Метод в этом контексте не доступен
445	Эта команда не поддерживается указанным объектом
449	Аргумент обязателен
450	Неправильное количество аргументов
461	Указанный формат не соответствует формату данных
2420	Синтаксическая ошибка в числе
2422	Синтаксическая ошибка в строке
2424	Неизвестное имя
2425	Неизвстное имя функции
2427	Объект не имеет значения
2431 -- - 2443	Ошибки синтаксиса