Практическая работа № 1

Тема: Создание макросов в Word 2003.

Цель работы: научиться создавать макросы.

Порядок работы

Задание .

1. Создать в приложении Word исходный документ Редактирование.doc, содержащий текст «информационная модель».

2. Ввести команду Сервис-Макрос-Начать запись… На появившейся диалоговой панели Запись макроса в поле Имя макроса: задать имя макроса – Редактирование. Для быстрого запуска макроса можно создать кнопку или назначить ему «горячую» клавишу.

3. Выполнить алгоритм «Редактирование» (вручную выполнить последовательность команд):

а) с помощью клавиатуры выделить символы с 1-го по 15-й

б) ввести команду Правка-Вырезать

в) с помощью клавиатуры установить курсор после позиции 7-го символа

г) ввести команду Правка-Вставить и получить результат выполнения алгоритма

4. Ввести команду Сервис-Макрос-Остановить макрос

5. Открыть в приложении Word исходный документ. Ввести команду Сервис-Макрос-Макросы… На открывшейся диалоговой панели Макросы выбрать имя нужного макроса и щелкнуть по кнопке Выполнить.

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

1. Записать макрос, который преобразует слово «информатика» в слово «форма».

2. Создать макрос для своего стиля подчеркивания (см. методические рекомендации).

3. Придумайте и создайте свой макрос.

Методические рекомендации по выполнению

Макросами (или макрокомандами) называют последовательность заданных пользователем команд, имеющая имя и хранящаяся в форме стандартного программного модуля на языке программирования Visual Basic for Application (VBA), название которого с английского переводится как "Visual Basic для приложений". Речь идет о приложениях (программах), входящих в состав пакета Microsoft Office. Если какая-либо задача в Microsoft Word выполняется часто, то ее выполнение можно автоматизировать с помощью макроса.

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

Рассмотрим методику создания и использования макросов на примере текстового редактора Word. В этой программе макросы применяются в основном для:

1) ускорения часто выполняемых операций редактирования или форматирования;

2) объединения нескольких команд, например, для вставки таблицы с указанными размерами и границами и определенным числом строк и столбцов;

3) автоматизации обработки сложных последовательных действий в задачах.

Для создания макросов в Microsoft Word существуют два метода:

1. в режиме "обучения" редактора: использование средства для разработки макроса;

2. в режиме программирования: прямое программирование в редакторе VBA.

Рассмотрим первый метод.

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

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

1. В меню Сервис наведите указатель мыши на команду Макрос и в раскрывшемся подменю выберите команду Начать запись. Откроется диалоговое окно Запись макроса:

2. В поле Имя макроса введите наименование для вашего макроса.

Примечание

Во избежание различных ситуаций с неверно отображаемыми именами макросов, записанных кириллицей, рекомендуется давать имена макросам либо английскими терминами, либо записывать имена макросов латиницей. Кроме того, имя макроса не должно содержать в себе пробелы, знаки препинания, и не должно начинаться с цифры.

3. В этом же окне вы можете назначить для макроса кнопку на панели инструментов или сочетание клавиш, нажав соответствующую кнопку в группе Назначить макрос.

4. Чтобы обеспечить доступность макроса в любом документе редактора Word, в поле Макрос доступен для выберите из списка строку Всех документов (Normal.dot), если у вас в этом поле выбрана другая строка.

5. В поле Описание можно ввести любой текст, описывающий назначение записываемого вами макроса.

6. Нажмите кнопку ОК и на экране появится небольшая панель инструментов с кнопками управления записью макроса:

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

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

Запись макроса для колонтитула.

1. Создайте пустой документ. 2. В меню Сервис выберите опцию Макрос и щелкните кликните на команде Начать запись. Откроется диалоговое окно, в котором вам следует дать имя вашему макросу и нажать на кнопку (картинка с молоточком) назначить макрос панели. 3. Откроется диалоговое окно Настройка, в правой области которой вы увидите название вашего макроса:

4. Перенесите эту кнопку на панель инструментов ((Перенести буквально означает следующее действие: нажмите левую кнопку мыши на этой команде и не отпуская кнопку мыши перенесите эту команду на вашу панель инструментов и отпустите кнопку мыши)). После чего закройте диалоговое окно. На рабочем окне документа появится мини-панель с двумя управляющими кнопками: стоп-запись, пауза и возобновление записи:

5. Зайдите в меню Вид и выберите команду Колонтитулы.

6. Щелкните на кнопке перехода к нижнему колонтитулу.

7. Зайдите в меню Вставка и выберите команду Поле. Откроется одноименное диалоговое окно.

8. В группе Категории выберите опцию О документе, а в группе Поля выберите опцию FileName.

9. В группе Параметры поля отметьте галочкой опцию Добавить путь к имени файла. Закройте это диалоговое окно и затем закройте панель колонтитулов.

10. На мини-панели записи макроса нажмите кнопку останова записи, после чего эта мини-панель исчезнет.

11. Закройте без сохранения документ Word.

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

Запись макроса для подсчета количества строк в таблице

Если ваш документ содержит таблицу и вам нужно подсчитать количество строк в ней, то результат можно получить двумя способами.

Первый способ заключается в том, что вы выделяете таблицу, открываете диалоговое окно Свойства таблицы и на вкладке Строка узнаете количество строк:

Второй способ заключается в написании простейшего макроса, который подсчитывает количество строк в текущей таблице (в которой находится курсор ввода) и выводит окошко с информацией:

Откройте редактор Visual Basic (Alt+F11) и вставьте в какой-либо модуль шаблона Normal.dot следующий код:

1. Sub rowsCount()

2. ' Подсчет количества строк в текущей таблице

3. Dim n As Integer

4. n = Selection.Tables(1).Rows.Count

5. MsgBox prompt:="В таблице " & n & " строк", _

6. Title:="Подсчет строк в таблице"

7. End Sub

Чтобы иметь быстрый доступ к этому макросу, назначьте для него сочетание клавиш или создайте кнопку на панели инструментов или в панели быстрого доступа (Word 2003).

Запись макроса своего стиля подчеркивания

Большинство пользователей текстового редактора Word, когда им необходимо подчеркнуть что-либо в тексте, используют встроенный в панель форматирования инструмент подчеркивания . Благодаря этому инструменту текст подчеркивается сплошной тонкой линией. К сожалению, изменить тип этой линии на другой тип, используемый по-умолчанию по щелчку на кнопке подчеркивания, в редакторе не удастся. Но можно создать свой мини-макрос и заменить им стандартный инструмент.

В редакторе содержится около 16 разных линий для подчеркивания. Они доступны по команде Шрифт из меню Формат.

Для создания макроса подчеркивания, нужно:

1. Выделите текст или слово, которое вы хотите подчеркнуть.

2. Зайдите в меню Сервис и выберите команду Макрос. Из списка команд выберите Начать запись. Откроется окно, в котором нужно ввести имя для вашего макроса (пусть будет UnderLine) и выберите способ, по которому вы будете работать с макросом (либо по кнопке на панели инструментов, либо через сочетание клавиш). Соответственно нажмите нужную кнопку (либо с молоточком, либо с клавиатурой).

Если выбрали работу макроса с помощью кнопки, то перенесите из правого окна название макроса на панель инструментов; если выбрали клавиатуру, то введите ваше сочетание клавиш. Затем нажмите ОК.

3. Появится панель с управляющими кнопками. Макрос начинает записывать ваши действия. Будьте внимательны.

4. Зайдите в меню Формат и выберите команду Шрифт. Появится диалоговое окно:

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

6. Остановите запись макроса по щелчку на кнопке управляющей панели.

Теперь проверьте работу макроса на каком-нибудь другом слове: выделите его и нажмите кнопку вашего созданного макроса (или нажмите ваше сочетание клавиш, которое вы установили при записи макроса). Текст будет подчеркнут в вашем стиле.

Вы можете переместить эту кнопку поближе к стандартной для удобства выбора

Запись макроса для установки ширины интервала

Пусть у нас есть текст, а вам необходимо отделить абзац начинающийся со слов "Большое спасибо .....". Поэтому вы должны установить курсор в начало абзаца и только затем щелкнуть кнопку СЕРВИС расположенную на панели меню.

Когда откроется окно с заголовком "Абзац", необходимо вначале установить интервалы "ПЕРЕД" и "ПОСЛЕ", согласно условию в 10 пт ( в противном случае вы не сможете продвинуться дальше), отмеченные меткой, а затем щелкнуть по кнопке "ОК", расположенной внизу данного окна.

Если вы все сделаете правильно, то появится надпись, извещающая о том, что макрос записан.