Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Метода ИТ.doc
Скачиваний:
12
Добавлен:
07.11.2018
Размер:
2.76 Mб
Скачать

Задание № 2

1. Создать макрос, удаляющий текст от позиции курсора ввода до конца текущей строки.

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

Пример выполнения работы

I. Создание простейших макросов в программе word.

1. Создание первого макроса – Удалить _До_Конца_Строки.

1.1. Создайте новый документ. Наберите строку следующих символов: 1234567890. Поместите курсор в начало строки.

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

1.3. В этом диалоговом окне присвойте макросу имя: “ Удалит_До_Конца_Строки ” . В поле Описание введите описание макроса, например: “ Удаляет текст до конца строки”. Нажмите кнопку “ Ok ”. На экране разворачивается окно Запись макроса..Примечание: в названии макросов не могут стоять пробелы

1.4. Нажмите клавиши <Shift+End>. Выделяется текст от позиции курсора до конца строки. Нажмите клавишу <Del>. Выделенный текст удаляется.

1.5. Щелкните кнопку «Остановить Запись». На этом заканчиваются операции по созданию первого макроса.

2. Запуск макроса на выполнение.

2.1. Наберите текст (Приложение 1.). Просмотрите текст и обратите внимание на лишние слова в конце первой и седьмой строк документа.

2.2.Установите курсор в начале первого лишнего слова и выполните команду Сервис Макрос Макросы.

2.3. В открывшемся диалоговом окне активизируйте макрос “Удалить_До_Конца _Строки” и щелкните на кнопке Выполнить. Текст удаляется. Удалите текст и в седьмой строке.

3. Подключение макроса к панели инструментов.

3.1. Выведите на экран панель инструментов, на которую вы собираетесь добавить кнопку для макроса, например: Visual Basic(Вид Панели инструментов Visual Basic).

3.2. Выполните команду меню Сервис Настройка. В диалоговом окне щелкните на вкладке Команды. Из списка Категории выберите категорию Макросы. В списке отразятся все созданные макросы. Выделите макрос – “Удалить_До_Конца_Строки” и переместите мышью на панель Visual Basic. На панели появляется новая кнопка.

3.3. Щелкните на кнопке «Изменить выделенный объект» и в списке выберите Основной стиль. Кнопка примет стандартный вид.

3.4. Щелкните на кнопке «Изменить выделенный объект» и в списке выберите Выбрать значок для кнопки. В появившемся списке щелкните, например, на кнопке с изображением телефона. Закройте диалоговое окно. На панели инструментов остается кнопка с изображением телефона.

3.5.Установите курсор в начале предпоследней строки текста и нажмите кнопку, закрепленную за макросом (телефон). Текст до конца строки удаляется.

4. Закрепление макроса за комбинацией клавиш.

4.1.Выполните команду СервисНастройка. В появившемся диалоговом окне активизируйте вкладку Клавиатура. В списке Категории выберите категорию Макросы. Выделите макрос – “Удалить_До_Конца_Строки”. Перейдите в поле Новое сочетание клавиш и нажмите клавиши <Ctrl>+<Shift>+<E>, щелкните по кнопке «Назначить». Закройте диалоговые окна. Комбинация клавиш закрепляется за созданным макросом.

4.2.Установите курсор в последней строке текста и нажмите сочетание клавиш <Ctrl>+<Shift>+<E>. Текст до конца строки удалится.

4.3. Создайте макрос, который будет удалять текст от позиции курсора до начала строки. Последовательность Ваших действий должна быть той же, но вместо клавиш <Shift>+<End> следует нажать клавиши <Shift>+<Home>. Присвойте макросу имя “Удаление_До_Начала_Строки”, присвойте кнопку на панели инструментов в виде колокольчика.