4. Появится окно Параметры конверта. Установите размер конверта равным 10 и выберите шрифт для текста. В окне Адрес на конверте введите в область Образец адреса необходимые текстовые строки и вставьте поля слияния по следующему образцу:

Россия (введите с клавиатуры)

<<Индекс>> (щелкните на кнопке Вставить поле слияния и из списка выберите поле Индекс)

Санкт-Петербург (введите с клавиатуры)

<<Адрес_в_Санкт-Петербурге>> (поле слияния)

<<Название_фирмы>> (поле слияния)

Уважаемый (введите с клавиатуры) <<ФИО_ген_директора>> (поле слияния)

5. В поле Объединение щелкните на пункте Отбор Записей, а в диалоговом окне Отбор записей установите следующие ограничения:

· фирма должна существовать не менее 5 лет, то есть с 1993 года.

· Фирма должна заниматься определенным видом деятельности, т. е. поле Направление деятельности не может быть пустым.

· необходимо проверить кредитоспособность фирмы, она должна быть надежным партнером (в графе кредитоспособность должно быть "да").

Например,в списке Поле выберите позицию Год создания; в списке Оператор выберите позицию Меньше; в поле Значение введите 1993. Подтвердить выбор - Ok.

6. Для ввода обратного адреса - общего для всех конвертов закройте окно Слияние, и после установки параметров в диалоговом окне Отбор записей введите обратный адрес в левый верхний угол конверта.

7. Чтобы установить параметры слияния документов - выполните команду СЕРВИС|Слияние|Объединить. Выберите следующие параметры, если они не были установлены по умолчанию:

· В поле Назначение - новый документ;

· В поле Диапазон записи - все;

· В поле Строки, содержащие только пустые записи - не печатать.

Проверьте в этом же окне внизу, что Условия отбора установлены.

8. Для слияния бланков конвертов с источником данных выполните команду СЛИЯНИЕ|Объединить. Просмотрите результат объединения. Вы должны увидеть, что создались новые документы: шаблон конверта и документ Конверты и, что произошло слияние только с данными таблицы, отвечающими поставленным условиям.

9. Сохраните новые документы под своими именами.

Задание 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)