Хранение макросов

Макросы хранятся в шаблонах или документах. По умолчанию макросы сохраняются в шаблоне Normal/dot, чтобы они были доступны всем документам Word. Если макрос будет использоваться только в одном документе, сохраните его в документе. Отдельные макросы в документе хранятся в проектах макросов, которые можно копировать из одного документа в другой. для копирования, удаления или переименования проекта макросов: Сервис  МакросМакросыОрганизатор.

Макрокоманда сохраняется вместе с шаблоном документа, в котором она записана. Для добавления макрокоманды из другого шаблона следует использовать команду Файл Шаблоны кнопка Организатор. Сохранение изменений: Файл  Сохранить все.

Если новому макросу будет присвоено имя одного из встроенных макросов Word, то последний будет заменен.

Например, макрос FileClose связан с командой Файл Закрыть. Если назвать новый макрос FileClose, то он будет связан с командой Закрыть, и при выборе команды Закрыть будет выполняться новая последовательность действий. Чтобы просмотреть список встроенных макросов Word, выберите команду Сервис  МакросМакросы. В списке Макросы из выберите Команд Word.

Воспроизведение макроса

Воспроизвести макрос можно несколькими способами:

1. Сервис  МакросМакросыимя макроса Выполнить.

2. С помощью клавиатурной комбинации (если она была назначена в процессе записи макроса). Процедура назначения клавиатурной комбинации (если она была назначена) следующая:

   • Сервис  Настройка вкладка Клавиатура;

   • в поле «Категории» выбрать Макросы имя макроса. Если клавиши были назначены, то их сочетание будет показано в поле «Текущие сочетания клавиш». При отсутствии назначения или при желании дать новое в поле «Новое сочетание клавиш» следует ввести новую комбинацию, просто нажав на эти клавиши;

   • нажать последовательно кнопки Назначить и Закрыть.

3. С помощью ПИ (если макрос связан с кнопкой ПИ).

Процедура назначения инструмента в виде пиктограммы может быть выполнена командой Сервис  Настройка. После выбора имени макроса его следует перетащить мышью на предполагаемое место расположения в пиктографическом меню. Существующие инструменты сдвигаются. Вызвав контекстное меню на кнопке макроса, можно придать кнопке нужный вид.

3. С помощью поля-кнопки Macrobutton. Поле Macrobutton позволяет запустить макрос прямо из документа. Двойной щелчок по этой кнопке запускает макрос, указанный в инструкции этого поля. Инструкция выглядит так:

{Имя поля Имя макроса Инструкции}

Вставка поля Macrobutton осуществляется командами Вставка  Поле категория Автоматизация документа поле Macrobutton или сочетание клавиш.

Задания для самостоятельной работы

Простые макросы. Создание элементов управления.

1. Запишите макрос для обмена местами текущего слова со следующим. Для этого:

• установите курсор на первом из двух слов;

• начните запись макроса. Назовите его «Два слова»;

• передвиньте курсор на один символ вправо;

• передвиньте курсор на слово влево (Ctrl+Left);

• Выделите слово справа (Shift+Ctrl+Right);

• Вырежьте выделенное слово в буфер обмена (Ctrl+X);

• передвиньте курсор на слово вправо (Ctrl+Right);

• через пробел вставьте слово;

• Проверьте, как работает макрос;

• посмотрите текст макроса.

2. Создайте свою панель инструментов.

3. Поместите на неё кнопку для макроса «Два слова».

4. Создайте кнопку для ввода примера заголовка. Заголовок должен добавляться либо в текущий документ, либо во вновь созданный документ. Для этого:

• поместите курсор в нужное место;

• щелкните на кнопке «Кнопка» панели инструментов «Элементы управления»;

• щелкните на документе вне созданной кнопки;

• щелкните на кнопке «Флажок» панели инструментов «Элементы управления»;

• переместите созданный флажок на нужное место;

• войдите в окно свойств флажка (с помощью правой кнопки мыши или специальной кнопки на панели инструментов);

• найдите свойство «заголовок» («Caption») и исправьте значение этого свойства на «Создать новый файл»;

• войдите в окно свойств созданной кнопки (можно просто выбрать кнопку в списке объектов в окне «Свойства»);

• исправьте заголовок кнопки на «Пример заголовка»;

• для записи текста макроса при выбранной кнопке достаточно щелкнуть по кнопке «Исходный текст» панели инструментов «Элементы управления»;

• в макросе необходимо прежде всего проверить, отмечено ли значение флажка (if CheckBox1. Value). При наборе имен свойств и методов обратите внимание, что после набора ’.’ появляется всплывающее меню свойств и методов, из которого можно выбрать нужное;

• в случае, если отмечено, создать новый документ (метод ADD) и сделать его активным (метод Activate);

• Добавьте текст «Пример заголовка». Можно воспользоваться методом InsertBefore для объекта Selection;

• установите размер шрифта – 14 пт для добавленного текста (объект Selection) и выравнивание по центру;

• вернитесь в окно Word, выйдите из режима конструктора (соответствующая кнопка) и проверьте работу макроса.

5. Создайте кнопку для сохранения всех открытых документов. Сохраняться должны либо все документы, либо только те поименованные, которые не начинаются со слова «Документ». Для этого создайте флажок. Для определения количества документов воспользуйтесь свойством «Count» массива Documents, для доступа к документу – Documents(<номер>), для того, чтобы узнать имя документа, используйте свойство «Name».

6. Создайте набор элементов управления для указания даты. Включите в него:

• текстовое поле для ввода года,

• раскрывающийся список для указания месяца,

• текстовое поле для ввода числа,

• счетчик для увеличения и уменьшения числа,

• кнопку для вставки даты в текст,

• три переключателя для задания формата даты.

При этом можно придерживаться следующей последовательности действий:

7. Создание текстового поля для ввода года:

   • нажмите кнопку «Поле» на панели инструментов «Элементы управления»;

   • подберите размер текстового поля.

8. Создание раскрывающегося списка:

• щелкните на документе вне созданного текстового поля и затем по кнопке «раскрывающийся список» панели инструментов;

• переместите раскрывающийся список в нужное место;

• Заполните элементы раскрывающегося списка с помощью макроса. Для этого:

• нажмите кнопку «Редактор Visual Basic» на панели инструментов «Visual Basic» или щелкните на документе вне созданных элементов и нажмите кнопку «Исходный текст» панели инструментов «Элементы управления»;

• в появившемся окне Visual Basic (в общей области) напишите макрос. Назовите его «Заполнение_списка». Заглавная строчка будет выглядеть: Sub Заполнение_списка();

• в макросе создайте массив из 12 строк. (Dim…(12) As String);

• присвойте элементам массива (от 0 до 11) значения - названия месяцев;

• присвойте свойству List() объекта ComboBox1 значение вашего массива (имя массива с круглыми скобками);

• перейдите в окно Word и выполните макрос;

• выйдите из режима конструктора и проверьте работу раскрывающегося списка;

• вернитесь в режим конструктора.

7. Создание текстового поля для ввода числа:

• щелкните на документе вне созданных элементов управления и нажмите кнопку «Поле»;

• Переместите поле в нужное место.

7. Создание счетчика.

• щелкните на документе вне созданных элементов управления и нажмите кнопку «Счетчик»;

• поместите его справа от поля для ввода числа;

• войдите в окно свойств счетчика (кнопка «Свойства») и установите минимальное значение (Min) равным 1, а максимальное (Max) – равным 31;

• на изменение счетчика назначьте макрос, изменяющий значение текстового поля. Для этого:

• нажмите кнопку «Исходный текст» панели инструментов «Элементы управления»;

• в тексте макроса присвойте полю Value объекта CheckBox2 значение Value объекта SpinButton1.

• на изменение текстового поля назначьте макрос, изменяющий значение счетчика. Для этого выполните предыдущий пункт, но поменяйте ролями объекты: выделите текстовое поле, нажмите кнопку и т.д.

7. Создание переключателей:

• создайте один за другим три переключателя;

• с помощью окна «Свойства» измените их заголовки:

• формат «число месяц год» (месяц – в текстовом виде)

• формат «чч.мм.гг» (все – двумя цифрами)

• формат «мм/чч/гггг»

• для каждого переключателя напишите макрос, назначенный на щелчок на нем (кнопка «Исходный текст»). В этих макросах свойству Value объектов Option Button# (# - номер 1,2 или 3) присвойте значение 0;

• выйдите из режима конструктора, проверьте работу переключателей и снова войдите в режим конструктора.

12. Создайте кнопку для ввода даты в текст. Задайте для нее соответствующий заголовок.

13. Напишите макрос, действующий по щелчку на этой кнопке. В этом макросе должно проверяться значение первого, второго и третьего переключателей и выполняться один из трех вариантов вставки даты в текст. Для вставки используйте метод InsertBefore объекта Selection. При этом: число можно взять из объекта TextBox2 (свойство Value), месяц – из объекта ComboBox1 (в свойстве Value будет записано название месяца, для нахождения номера можно найти элемент массива List(), значение которого совпадает с Value), год - из объекта TextBox1 (свойство Value, для нахождения двух последних цифр года используйте функцию Right(TextBox1. Value,2)).

14. Проверьте функционирование всего комплекса элементов управления.

15. Сохраните документ.