Использование объектов Microsoft Word

Создание экземпляра приложения-сервера

Задание ссылки на соответствующую библиотеку объектов - это необходимое, но недостаточное условие для использования объектов этой библиотеки. Нужно также с помощью процедуры создать экземпляр приложения-сервера. Для этого используется оператор CreateObject (Создать объект). Только после создания экземпляра приложения-сервера можно использовать все открытые объекты этого приложения, а также их свойства и методы. В листинге 32 приведен код, создающий экземпляр Word.

Листинг 32. Создание экземпляра Word

Dim у As Word.Application Set у = CreateObject("Word.Application")

После создания экземпляра приложения-сервера, можно использовать его объекты, свойства и методы точно так же, как и объекты, свойства и методы Excel. Из этого следует, что можно записать макрос в Word, а затем полученный код вставить в процедуру Excel. Далее в код при необходимости можно внести изменения, или как-нибудь еще использовать этот код.

Рассмотрим простое приложение, вставляющее диапазон ячеек рабочего листа Excel в письмо, созданное в Word. В программе Word создадим документ следующего содержания:

Менеджеру по продажам Посылаю Вам таблицу с итоговыми данными по объемам продаж. Если у Вас есть вопросы, то свяжитесь со мной. С уважением, Босс

Сохраните этот текст в файле letter.doc. Теперь вставим в письмо две закладки. Закладка - это поименованное место в документе Word. Для вставки закладок выполните следующие действия.

1. Установите курсор в начало фразы Менеджеру по продажам.

2. Выполните команду Вставка > Закладка, откроется диалоговое окно Закладка.

3. Введите Регион в качестве имени закладки и щелкните на кнопке Добавить.

4. Добавьте пустую строку перед С уважением. Установите курсор в эту пустую строку и вставьте закладку Данные.

5. Сохраните и затем закройте документ.

Перейдите в Excel и создайте таблицу с данными, подобную приведенной на рис. 11. Эта таблица далее будет скопирована и вставлена в документ letter.doc. Вернитесь в Word и начните запись макроса с именем Данные_продажи, предварительно открыв новый документ. Для начала записи макроса в Word необходимо выполнить те же действия, что и в Excel. Прежде всего выполните команду Сервис > Макрос > Начать запись.

Рис. 11. Таблица данных, которую надо вставить в письмо

Во время записи макроса выполните следующие действия.

1. Выберите команду Файл > Открыть и откройте документ letter.doc.

2. Выполните команду Правка > Перейти. В диалоговом окне Найти и заменить на вкладке Перейти в списке Объект перехода выберите пункт Закладка, а затем в раскрывающемся списке Введите имя закладки выберите Регион. Щелкните на кнопке Перейти.

3. Теперь выберите закладку Данные и щелкните на кнопке Перейти.

4. Щелкните на кнопке Закрыть для удаления диалогового окна Найти и заменить.

5. Остановите запись макроса.

Выполнив команду Сервис > Макрос > Макросы, откроете диалоговое окно Макрос и выберите макрос Данные_продажи. Для просмотра кода этого макроса щелкните на кнопке Изменить. Удалите строки из процедуры так, чтобы у вас осталось то, что показано в листинге 33.

Листинг 33. "Остаток" процедуры Данные продажи

Sub Данные_продажи() Documents.Open FileName:="Письмо.doc" Selection.GoTo What:=wdGoToBookmark, Name:="Регион" Selection.GoTo What:=wdGoToBookmark, Name:="Данные" End Sub

Этот код будет основой процедуры, которую мы создаем в Excel. Скопируйте эту процедуру в буфер обмена. Закройте Word, вернитесь в Excel и откройте редактор Visual Basic. Добавьте модуль в текущую рабочую книгу и вставьте в него скопированную процедуру. Теперь надо создать экземпляр Word, а также перед каждой строчкой процедуры поставить имя переменной, соответствующей экземпляру Word. Самый простой способ сделать это - применить оператор With. Код измененной процедуры показан в листинге 34.

Листинг 34. Процедура Данные продажи с экземпляром Word

Sub Данные_продажи() Dim y As Word.Application Set y = CreateObject("Word.Application") With y.Documents.Open FileName:="Письмо.doc".Selection.GoTo What:=wdGoToBookmark, Name:="Регион".Selection.GoTo What:=wdGoToBookmark, Name:="Данные" End With End Sub

Осталось добавить код, копирующий таблицу данных в Excel и вставляющий ее в документ Word. Полный код процедуры приведен в листинге 35.

Листинг 35. Законченная процедура Данные продажи '

Sub Данные_продажи() Dim y As Word.Application Set y = CreateObject("Word.Application") With y.Visible = True.Documents.OpenFileName:="C:\Мои документы\letter.doc" Worksheets("Лист1").Range("B1").Copy.Selection.GoTo What:=wdGoToBookmark, Name:="Регион".Selection.Paste Application.CutCopyMode = False Worksheets("Лист1").Range("A3:D11).Select.Selection.Copy.Selection.GoTo What:=wdGoToBookmark, Name:="Данные".Selection.Paste Application.CutCopyMode = False End With End Sub

Первый оператор.Visible = True устанавливает свойство Word Visible (Видимый) как True, тем самым открывая окно программы Word и выводя его на передний план. Далее открывается документ Письмо. Затем копируется содержимое ячейки В1, содержащей название региона, осуществляется переход к закладке Регион и вставляется содержимое ячейки В1. Установка свойства Excel cutCopyMode (Режим вырезания и копирования) как False снимает выделение с ячейки В1:

.Documents. OpenFileName:="C:\Мои документы\letter.dос" Worksheets("Лист1").Range("B1").Copy.Selection.GoTo What:=wdGoToBookrnark, Name:="Регион".Selection.Paste Application.CutCopyMode = False

Затем аналогичная процедура копирования и вставки выполняется для диапазона А3:D11. Результат работы программы приведен на рис. 12.

Рис. 12. Документ Word со вставленными данными Excel

В заключение перечислим этапы выполнения этого примера.

· Создание файла в приложении-сервере.

· Создание таблицы данных в Excel (приложении-клиенте).

· Запись макроса в приложении-сервере.

· Копирование кода записанного макроса и вставка его в процедуру, создаваемую в Excel.

· Изменение процедуры Excel для создания экземпляра приложения-сервера.

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

ТЕМА 3.1 СТРУКТУРА И СОСТАВ ППП 1С:ПРЕДПРИЯТИЕ. РЕЖИМЫ РАБОТЫ

Назначение и возможности ППП 1С:Предприятие

1С:Предприятие -- это специализированная объектно-ориентированная система управления базами данных (СУБД), предназначенная для автоматизации деятельности предприятия. 1С:Предприятие представляет собой систему прикладных решений, построенных по единым принципам и на единой технологической платформе. Система 1С:Предприятие предназначена для решения широкого спектра задач автоматизации учета и управления, стоящих перед динамично развивающимися современными предприятиями. Система 1С:Предприятие для всех прикладных решений независимо от отраслевой специфики обеспечивает:

· возможность использования системы от локального компьютера до десятков пользователей в локальной сети;

· использование файлового варианта или варианта "клиент-сервер" (MS SQL Server);

· возможность развертывания работы на нескольких территориально удаленных точках с периодическим обменом информацией;

· возможность использования современных технологий (WEB, XML, интеграция с другими программными системами и различным торговым оборудованием).

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

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

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

· Очень важным преимуществом такого подхода является унификация обучения пользователей. Обучившись на курсах по работе 1С Предприятие 7.7 или имея опыт работы с какой либо из программ, пользователь достаточно быстро осваивает возможности специализированных или индивидуальных решений.

· Стандартизация платформы также существенно упрощает и администрирование системы, так как функции администрирования практически не зависят от конкретного прикладного решения. Большинство системных администраторов и специалистов по автоматизации уже имеют опыт администрирования и даже модификации прикладных решений 1С:Предприятия 7.7.

Важным преимуществом 1С:Предприятия 7.7 является открытость системы

Для руководителя, принимающего решение о выборе средства автоматизации, достаточно важно быть уверенным, что система не будет для предприятия "черным ящиком", и существует реальная возможность понять работу системы и, при необходимости, изменить. Эта работа может быть выполнена как франчайзинговыми организациями, специализирующимися на поддержке 1С Предприятия 7.7, так и специалистами ИТ-служб самого предприятия. Фирма 1С обеспечивает регулярную поддержку стандартных прикладных решений и самой платформы. Платформа 1С:Предприятия 7.7 обеспечивает возможность совмещения обновлений прикладного решения, производимого фирмой 1С или разработчиком специализированного решения, с индивидуальными изменениями, внесенными при внедрении системы.

Устройство системы 1С:Предприятие 7.7 позволяет достаточно быстро вводить в курс дела новых специалистов и передавать поддержку прикладного решения тому, кто сможет обеспечить наилучшее обслуживание. Таким образом, наличие реальной индустрии внедрения и поддержки решений системы 1С:Предприятие является для заказчика гарантией независимости от единственной фирмы или специалиста, "живучести" внедренного проекта и его беспроблемного сопровождения и развития.

Структура пакета 1С:Предприятие

1С:Предприятие является гибкой настраиваемой системой для решения широкого круга задач в сфере автоматизации деятельности предприятий. Это обеспечивается общей структурой системы, которая представлена на рис. 13.

Рис. 13. Структурная схема ППП 1С:Предприятие

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

Дата добавления: 2013-12-13