Задание 30. Работа с макросами. Создание макроса с помощью рекордера.

При работе с текстовым процессором WORD97 часто происходит ситуация, когда русские слова, не содержащие ошибок, выделяются красной волнистой линией как ошибочные. Это происходит, по-видимому, из-за того, что для проверки подключается словарь другого языка. Если восстановить русский язык, то «ошибки» исчезают. Для восстановления языка необходимо выполнить последовательность действий через меню СЕРВИС→Язык→Выбрать язык→Русский. Однако на выбор языка из списка затрачивается определенное время, что замедляет процесс работы с текстом.

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

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

Выполнение

1. Выполните команду СЕРВИС→Макрос→Начать запись. Назовите макрос «Русский» и нажмите кнопку Ok.

2. Появится панель с кнопкой Останов записи. Выполните команду СЕРВИС→Язык→Выбрать язык→Русский.

3. Щ елкните мышью на кнопке Останов записи, чтобы закончить запись макроса.

Рис. 19. Кнопка останова записи макроса

4. Создайте новую панель инструментов и поместите на нее кнопку макроса «Русский». Для этого выполните команду СЕРВИС→Нас­трой­ка. На вкладке Панели инструментов включите флажок панели Настраиваемая 1. Если в списке панелей инструментов панели с таким названием нет, то создайте ее, щелкнув по кнопке Создать. Перетащите вновь созданную панель в левую верхнюю часть экрана, расположив над горизонтальной линейкой форматирования.

5. На вкладке Команды выберите категорию Макросы и выделите имя созданного макроса. Перетащите строку с названием макроса из диалогового окна настройки в панель инструментов Настраиваемая 1.

6. На панели инструментов Настраиваемая 1 появится кнопка Normal.Русский. Щелкните на кнопке правой клавишей мыши, вызвав контекстное меню настройки. Выберите в контекстном меню пункт Основной стиль, чтобы кнопка на панели имела только рисунок.

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

8. Щелкните на кнопке Закрыть диалогового окна. Подведите к кнопке указатель мыши. Под кнопкой появится подпись, соответствующая имени макроса - русский.

9. Проверьте работу созданного макроса. Введите правильно написанное русское слово. Выделите его и подключите для проверки словарь английского языка. Для этого выполните команду СЕРВИС→­Язык→­­Выбрать язык→английский. Слово окажется под­черк­ну­тым красной линией. Теперь подключите для проверки русский словарь, выделив слово и щелкнув мышкой на созданной кнопке для запуска макроса Русский. Подчеркивание слова исчезнет.

10. По аналогии с приведенными выше действиями создайте второй макрос для подключения английского словаря и присвойте ему имя Английский.

Задание 31. Разработка макроса на языке программирования vba

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

Освойте начальные приемы работы с редактором VBA. Просмотрите структуру макроса.

Создайте нестандартную кнопку для запуска макроса. Включите созданный макрос в общий шаблон для использования при работе с любыми документами Word.

Примечание: Макрос разработан Е.А.Ермоленко для бесплатного использования, его можно найти, например, на компакт-диске, прилагаемом к книге В.А.Билиг, М.И.Дехтярь, VBA и Office 97. Офисное программирование. 1998

Выполнение

1. Выполните команду СЕРВИС→Ма­крос→Ре­дактор Visual Basic. В окне редактора VBA Вы увидите новое меню и инструментальную панель с кнопками для управления редактором. Если при этом в окне редактора будут открыты какие-либо другие окна, то закройте их.

2. Откройте окно проекта, выполнив команду View→Project Explorer. Появится окно с проектами открытых документов и общего шаблона (макропрограмм, содержащихся в шаблоне Normal.dot)

3. В окне проекта выделите мышью проект текущего документа, например Project (This Document) и вставьте в него новый программный модуль. Для этого выполните команду Insert→Module. На экране появится еще одно окно с названием Module1(Code) для ввода текста (кода) макроса на языке Visual Basic.

4. Упорядочите расположение окон редактора, выполнив команду WINDOWS→Tile Horizontally (ОКНО|По горизонтали).

5. Измените имя модуля на имя ChangeLang. Для этого в окне проекта выделите Module1 и нажмите клавишу F4 или выполните команду VIEW→|Properties Window (ВИД|Окно свойств). Откроется окно свойств модуля. Выделите в строке со свойством (Name) имя Module1 и введите новое имя ChangeLang. Нажмите клавишу Enter и закройте окно свойств. Новое имя модуля появится в окнах проекта и программы.

6. Перейдите в окно программы (клавиша F7) и введите код макропрограммы на языке Visual Basic в соответствии с приложением 1.

7. Проверьте введенный текст, выполнив компиляцию программы с помощью команды DEBUG→|Compile Project (ОТЛАДКА|Компилировать проект). Если при компиляции будут обнаружены ошибки, исправьте их сличением с исходным текстом и повторите компиляцию. Когда ошибки будут устранены, перейдите к следующему пункту.

8. Перейдите в окно документа Word. Для этого щелкните по соответствующей кнопке либо на панели задач, либо на инструментальной панели редактора. В окне Word убедитесь, что в списке макросов текущего документа появился макрос ChangeLang. Для этого выполните команду СЕРВИС→Макрос→Макросы. Закройте окно макросов.

9. Проверьте правильность работы созданного макроса. Для этого введите слово "велосипед" при английской раскладке клавиатуры. На экране Вы увидите "dtkjcbgtl". Выделите это слово и выполните макрос. Для этого с помощью команды СЕРВИС→Макрос→Макросы откройте окно Макрос. Выделите в списке макросов макрос ChangeLang и щелкните на кнопке Выполнить. Слово должно воспроизвестись символами кириллицы. Повторно примените макрос. Слово отобразится символами латиницы.

10. Скопируйте созданный макрос в общий шаблон. Для этого откройте окно Организатора, выполнив команду СЕРВИС→Макрос→Мак­ро­сы, и затем щелкните на кнопке Организатор. В окне Организатор выделите в левом списке имя ChangeLang и, щелкнув на кнопке Копировать, скопируйте его в правый список

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

12. Проверьте работу макроса для преобразования английского текста, набранного кириллицей и русского текста, набранного латиницей, с использованием созданной кнопки на инструментальной панели.

13. П одведите указатель мыши к созданной кнопке. Вы должны увидеть подпись под кнопкой ChangeLang. Измените подпись под кнопкой. Для этого с помощью организатора удалите макрос ChangeLang из общего шаблона. Удалите кнопку запуска макроса с инструментальной панели. Откройте окно программы в редакторе VBA и замените имя подпрограммы в первой строке кода программы. Вместо имени ChangeLang введите имя Кодировка, при этом первая строка программы будет иметь вид: Public Sub Кодировка ()

Рис. 20. Окно редактора кнопок с точечным рисунком новой кнопки

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

15. Создайте нестандартную кнопку на инструментальной панели макросов для запуска макроса ChangeLang. Для этого, открыв в окне Настройка вкладку Команды, выполните те же действия, что и в задании 30. Сначала выберите для запуска макроса стандартный значок, например, значок левой стрелки (рис. 20), а затем в контекстном меню кнопки выберите пункт Изменить значок на кнопке и измените его на другой - вращающуюся стрелку. Для изменения используйте точечный рисунок новой кнопки, представленный на рис. 20.