Манипулирование макросами

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

Копирование макроса из одного шаблона в другой

Чтобы скопировать макрос из одного шаблона в другой, поступайте следующим образом:

1.    Выберите команду Сервис - Макрос.

2.    Щелкните по кнопке Организатор, и в появившемся диалоговом окне Организатор укажите вкладку Макрос.

3.    В левом списке диалогового окна откройте шаблон, макрос которого вы хотите скопировать. Чтобы открыть другой шаблон в диалоговом окне Организатор, щелкните по кнопке Закрыть файл под одним из списков. После того, как название кнопки поменяется на Открыть файл, щелкните по ней, чтобы вывести на экран диалоговое окно Открытие документа. В этом диалоговом окне выберите шаблон, который вам нужен, и щелкните по ОК.

4.    В правом списке откройте тем же образом шаблон, в который вы хотите скопировать макрос.

5.    Выделите макрос, который вы хотите скопировать. (Вы также можете выделить несколько макросов в списке, щелкая по ним при нажатой клавише Ctrl).

6.    Щелкните по кнопке Копировать.

7.    Закончив копирование, щелкните по кнопке Закрыть, чтобы закрыть диалоговое окне Организатор. 

Удаление макроса

Чтобы стереть макрос из активного шаблона, поступайте следующим образом:

1.    Выберите команду Сервис - Макрос.

2.    В поле Имя макроса выберите имя макроса, который вы хотите стереть.

3.    Щелкните по кнопке Удалить.

4.    Подтвердите это, щелкнув по кнопке Да.

5.    Щелкните по кнопке Закрыть, чтобы закрыть диалоговое окно Макрос.

Чтобы стереть макрос из шаблона, который не активен в данный момент, поступайте следующим образом:

1.    Выберите команду Сервис >• Макрос.

2.    Щелкните по кнопке Организатор и в появившемся диалоговом окне Организатор укажите вкладку Макрос.

3.    Щелкните по одной из кнопок Закрыть файл. После того, как название кнопки изменится на Открыть файл, щелкните по ней, чтобы вывести на экран диалоговое окно Открытие документа. В этом диалоговом окне выберите шаблон, в котором содержится макрос, который вы хотите стереть, и щелкните по ОК.

4.    Выделите имя макроса и щелкните по кнопке Удалить, чтобы стереть его из шаблона.

5.    Щелкните по кнопке Да для подтверждения своих действий.

6.    Щелкните по кнопке Закрыть, чтобы закрыть диалоговое окно Организатор. 

Перенесение макроса из одного шаблона в другой

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

 

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

Чтобы переименовать (изменить имя) макроса, сделайте следующее:

1.    Выберите команду Сервис - Макрос.

2.    Щелкните по кнопке Организатор и в появившемся диалоговом окне Организатор укажите вкладку Макрос.

3.    Если макрос, который вы хотите переименовать, не указан ни в одном из двух списков этого диалогового окна, щелкните по одной из кнопок Закрыть файл. После того, как название кнопки изменится на Открыть файл, щелкните по ней, чтобы вывести на экран диалоговое окно Открытие документа. В этом диалоговом окне выберите шаблон, в котором содержится макрос, и щелкните по ОК.

4.    Выделите имя макроса, и щелкните по кнопке Переименовать. Word выведет на экран диалоговое окно Переименование.

5.    Введите новое имя для макроса и щелкните по ОК.

6.    Щелкните по кнопке Закрыть, чтобы закрыть диалоговое окно.

Пример 1:

Стирание до конца строки

Запись макроса

В этом примере запишем макрос, позволяющий стирать текст от местоположения курсора вставки до конца строки, в которой стоит курсор вставки. Откройте любой документ, содержащий несколько строчек текста, и проделайте следующее:

1.    Поместите курсор вставки в любом месте любой строки (но не в конце строки).

2.    Дважды щелкните по кнопке ЗАП в строке состояния, чтобы вывести на экран диалоговое окно Запись макроса, показанное ниже.

3.    В диалоговом окне Запись макроса введите текст “Удалтекста” в качестве имени макроса.

4.    В поле Описание введите текст “Удаление текста от позиции курсора до конца строки”.

5.    Щелкните по ОК, чтобы начать запись макроса.

6.    Нажмите Shift+End, чтобы выделить часть строки от места положения курсора вставки до конца строки.

7.    Нажмите клавишу Delete, чтобы стереть выделенный текст.

8. Щелкните по кнопке Остановить запись в панели инструментов Запись макроса, чтобы закончить запись макроса.

Вот и все – макрос готов.

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

После того как вы записали макрос, он готов к воспроизведению. Чтобы воспроизвести макрос, используйте любой из следующих методов:

      Выберите команду Сервис- Макрос.

      Присвойте этому макросу кнопку панели инструментов и щелкните по этой кнопке.

      Присвойте этому макросу горячую клавишу и нажмите эту горячую клавишу.

      Присвойте этому макросу одну из команд меню и выберите эту команду меню.

 

Прерывание работы макроса

Чтобы остановить работающий макрос, сделайте следующее:

1.   Нажмите клавишу Esc. Word выведет на экран окно с сообщением о том, что макрос был прерван.

2.   Щелкните по ОК.

 

Пример 2:

Построение поля MACROBUTTON и создание макроса, позволяющего печатать текущую страницу.

Представьте, что вы пишите документ, в котором рассказываете другим людям о новых возможностях Word для Windows 95, причем описание каждой из возможностей будет занимать одну страницу. Было бы удобно дать читателям возможность печатать отдельно только те страницы документа, которые их заинтересовали. А еще лучше будет, если для этого внизу каждой страницы будет предусмотрена кнопка, двойной щелчок по которой приводит к печати этой страницы.

В поле MACROBUTTON, с помощью которого мы сделаем эти кнопки, необходимо вставить вызов слегка измененной встроенной команды Word Файл - Печать. Кроме того, вы должны предусмотреть подсказку для пользователей, чтобы они знали, где нужно производить двойной щелчок и к каким результатам он приведет. Инструкции и значения соответствующего поля могут выглядеть, например, так:

      инструкции

{MACROBUTTON ПечатьЭтойСтр

Двойной щелчок здесь напечатает эту страницу}

      значения

Двойной щелчок здесь напечатает эту страницу

Когда вы дважды щелкаете по полю MACROBUTTON, Word печатает текущую страницу.

 

Создание поля

1.    Нажмите Ctrl+F9.

2.    Введите слово “MACROBUTTON” и пробел.

3.    Введите “ПечатьЭтойСтр” (так будет называться макрос) и нажмите клавишу >, чтобы переместиться на один символ правее.

4.    Введите текст: “Двойной щелчок здесь напечатает эту страницу”.

5.    Нажмите комбинацию клавиш Shift+F9.

6.    Выберите команду Формат - Обрамление и заливка и на появившемся диалоговом окне Обрамление и заливка абзаца укажите вкладку Обрамление.

7.    В области Тип выберите Тень, укажите одинарную линию толщиной 3 пункта в списке Тип из области Линия, выберите Бирюзовый в списке Цвет и щелкните по ОК.

8.    Выберите команду Вид - Линейка, чтобы вывести на экран линейку.

Перетащите маркер правого отступа так, чтобы он стоял вровень с правым краем поля (в режиме просмотра значения поля). Если вместо текста, который вы ввели (“Двойной щелчок здесь напечатает эту страницу”), вы видите надпись “Текст вывода не может распространяться больше чем на одну строку!” (“DisplayText cannot span more than one line!”), отнесите маркер правого абзаца чуть-чуть вправо, пока снова не увидите на экране значение поля.

Создание макроса

Теперь нам нужно создать макрос ПечатьЭтойСтр. Для этого сделайте следующее:

1.    Дважды щелкните по кнопке ЗАП в строке состояния.

2.    В диалоговом окне Запись макроса введите “ПечатьЭтойСтр” в поле Имя макроса и щелкните по ОК. Как обычно, вы можете выбрать любой из открытых шаблонов для записи этого макроса. Кроме того, вы можете ввести описание действия этого макроса в поле Описание.

3.    Выберите команду Файл - Печать, установите флажок Текущая страница и щелкните по ОК.

4.    Щелкните по кнопке Остановить запись на панели инструментов Запись макроса.

5.    Выберите команду Сервис - Макрос, в поле Имя макроса укажите имя ПечатьЭтойСтр и щелкните по кнопке Изменить. Вы увидите инструкции этого макроса.

6.    Сотрите все инструкции, кроме “FilePrint” и “Range == "2"”. После этого инструкция должна выглядеть следующим образом:

FilePrint .Range = "2"

7.    Закройте окно редактирования макроса и щелкните по кнопка Да, чтобы сохранить изменения.

8.    Протестируйте ваш макрос и поле MACROBUTTON.

 

Пример 3:

Использование макроса AutoOpen для обновления полей (Автоматические макросы Word).

Word позволяет записать пять автоматических макросов, которые называются так потому, что Word автоматически запускает их, когда вы выполняете определенные действия. С помощью этих макросов можно автоматизировать последовательности действий, которые вы выполняете при запуске Word, при выходе из Word, а также при создании, открытии и закрытии документа.

Запись автоматического макроса осуществляется почти так же, как и обычного макроса, за тем исключением, что вы должны дать записываемому макросу одно из пяти специальных имен: AutoExec, AutoNew, AutoOpen, AutoClose и AutoExit.

 

Замечание:

Один из самых разумных способов использования макроса AutoNew – введение в этот макрос инструкций обновления всех полей в новом документе, которые были вставлены в этот документ из шаблона. Например, если ваш шаблон письма содержит поле, которое при обновлении запрашивает пользователя об имени и адресе адресата письма, то при создании документа на основе этого шаблона вам придется вручную обновить это поле, чтобы занести в него нужную информацию. Макрос AutoNew в этом случае может помочь вам, автоматически обновив поля нового документа сразу после его создания. Макрос AutoOpen, в свою очередь, позволяет обновлять все поля открываемого документа, так что этот документ всегда будет содержать самую свежую информацию после загрузки в Word.

Чтобы создать макрос AutoOpen, обновляющий все поля в документе при открытии этого документа, сделайте следующее:

1.    Щелкните дважды по кнопке ЗАП в строке состояния.

2.    В поле Имя макроса введите AutoOpen и щелкните по ОК.

3.    Нажмите горячую клавишу Выделить все (Ctrl+A).

4.    Нажмите горячую клавишу Обновить поле (F9).

5.    После того как Word закончит обновление полей, нажмите Ctrl+Home, чтобы поместить курсор вставки в начало документа и снять выделение.

6.    Щелкните по кнопке Остановить запись на панели инструментов Запись макроса.

Если вы хотите увидеть инструкции макроса, который мы только что записали, поступайте так:

1.    Выберите команду Сервис - Макрос.

2.    Укажите макрос AutoOpen в списке Имя макроса и щелкните по кнопке Изменить.

На экране появится окно с инструкциями макроса, которое будет выглядеть так:

Sub MAIN EditSelectAII UpdateFields StartOf Document End Sub