В качестве простейшего примера совместной работы двух приложений Excel и Word, рассмотрим задачу рассылки извещений, созданных в редакторе Word, тем заказчикам, которые пожелали приобрести товар в задаче предыдущего параграфа, но не перевели деньги на счет фирмы-продавца.
Предварительно надо добавить изменение в программу кнопки «Принять заказ» на форме пользователя с тем, чтобы информация о сделанном заказе поступала на отдельный рабочий лист с именем «Заказы», структура которого представлена в табл.13.1.
Таблица 13.1
| Заказчик | Товар | Кол-во | Общая стоимость | Дата | Оплата |
| Луч | Стул | 160 000 | 11.09.08 | да | |
| Восток | Кресло | 120 000 | 11.09.08 | ||
| Восток | Стол | 400 000 | 12.09.08 | да | |
| Вест | Кресло | 360 000 | 12.09.08 |
Шапка таблицы на листе имеется, надо программным путем сформировать содержимое. Для этого в программе для кнопки «Принять заказ» перед оператором End надо добавить следующий программный код:
i = 2
Do While Worksheets("Заказы").Cells(i, 1) <> ""
i = i + 1
Loop
Worksheets("Заказы").Cells(i, 1) = Worksheets("Платеж").Range("b8")
Worksheets("Заказы").Cells(i, 2) = Worsheets("Платеж").Range("a13")
Worksheets("Заказы").Cells(i, 3) = Worsheets("Платеж").Range("c13")
Worksheets("Заказы").Cells(i, 4) = Worsheets("Платеж").Range("d13")
Worksheets("Заказы").Cells(i, 5) = Worsheets("Платеж").Range("b17")
Тогда программа, помимо формирования платежной ведомости, будет заполнять первые 5 столбцов списка на листе «Заказы». В таблице «Заказы» имеется столбец «Оплата», который заполняется бухгалтером при получении сведений об оплате заказа вручную.
Затем в текстовом редакторе Word надо создать шаблон текстового документа «Извещение» с интерфейсом, представленным на рис. 13.1.
Рис. 13.1 – Текст документа «Извещение»
