O b je ct ( "W o rd . A p p lic a t io n . 1 4 "), обращающаяся непосредственно к Word 2010,

работать не будет.

Функция C re a te O b je c t, которая обращается к таким объектам автоматизации, как

W o r d .A p p lic a tio n или E x c e l . A p p lic a t io n , всегда возвращает новый экземпляр

объекта, т.е. запускается новая копия приложения. Поэтому в случае, когда объект авто­ матизации уже запущен, запускается новый экземпляр, после чего создается новый объ­ ект указанного типа.

Для того чтобы использовать текущий экземпляр или чтобы запустить приложение и заставить его загрузить сохраненный файл, воспользуйтесь функцией G e tO b j e c t.

Примечание

Для использования автоматизации в приложениях Office рекомендуется вы­ полнить раннее связывание с самой ранней версией программного продук­ та, который установлен в системе. Например, чтобы реализовать автомати­ зацию с Word 2003, Word 2007 и Word 2010, следует использовать библиоте­ ку объектов Word 2003 для обеспечения совместимости со всеми тремя версиями. Таким образом, гарантируется невозможность использования уникальных функций, предоставляемых более поздними версиями Word.

Простой пример позднего связывания

Приведенный пример демонстрирует создание объекта Word с помощью позднего свя­ зывания. Рассматриваемая процедура создает объект, отображает номер версии, закрывает приложение Word и уничтожает созданный объект (освобождая используемую память).

Sub G etW ordV ersion()

Примечание

Созданный с помощью приведенной выше процедуры объект Word является невидимым. Если нужно, чтобы в процессе обработки этот объект отображал­ ся на экране, присвойте свойству v is ib le значение True, как показано ниже.

W o rd A p p .V is ib le = True

Данный пример можно запрограммировать с помощью раннего связывания. Однако вначале воспользуйтесь командой Tools'^References (Сервис^Ссылки) для создания

ссылки на библиотеку объектов Word. После этого можете применить приведенный ниже код.

Sub G etW ordVersion ()

Dim WordApp As New W o rd .A p p lic a tio n MsgBox W ordA pp.V ersion

WordApp. Q u it

Set WordApp = N o th in g End Sub

Нарис. 20.7 показан один из документов, созданных с помощью процедуры MakeMemos.

©Рассматриваемая в этом разделе рабочая книга находится на прилагаемом компакт-диске в файле make memos . xlsm .Компакт-диск

Этот макрос создавался в несколько этапов. Все началось с его записи в Word. Запи­ сывались действия по созданию нового документа, добавлению и форматированию тек­ ста, а также сохранению файл! Этот макрос Word предоставил необходимую информа­ цию о свойствах и методах объекта Word. После этого макрос был скопирован в модуль кода Excel. Обратите внимание, что использовался оператор W ith -E n d W ith . Т1еред каждой инструкцией между W ith и End W ith была добавлена точка. Например, перво­

начальный макрос Word содержал (среди прочих) приведенный ниже оператор.

Documents .Add

1 Очистка документа

ThisD ocum ent. C o n te n t. D e le te

'Создание объекта Sheet

Se le c tio n . TypeParagraph

Se le c tio n . TypeParagraph

1Копирование данных с листа и их вставка в документ

XLSheet. Range( "D a ta T a b le " ) . Copy

Se le c tio n . Paste

S e le c tio n . TypeParagraph

S e le c tio n . TypeParagraph

1Копирование и вставка в документ диаграммы

XLSheet. C hartO bj e c ts (1) . Copy

S e le c tio n . P a ste S p e cia l _

L in k := F a ls e , _

D ataT ype: = w d P a s te M e ta file P ic tu re , _

P la ce m e n t: =w dInLine

Компакт-диск

Рассматриваемый в этом разделе пример находится на прилагаемом к книге компакт-диске. Документ Word находится в файле automate excel.docm , а рабочая книга Excel — в файле m o rtg a g e ca lcs .x ls x . После открытия до­ кумента Word вызовите на выполнение макрос MakeLoanTable, выполнив команду BcTaBKa^Mortgage^Get Mortgage Amount (Вставка^Ипотека^Получить размер ипотеки).

Рабочая книга Excel, используемая этой процедурой Word, показана на рис. 20.8. Процедура M a ke L o a n T a b le запрашивает у пользователя размер кредита и вставляет значение в ячейку С7 (под именем LoanA m ount).

Пересчет рабочего листа приводит к обновлению таблицы данных в диапазоне F2:I12 (под названием D a ta T a b le ), а также обновляет диаграмму. Затем диапазон D a ta ­ Table и диаграмма копируются из объекта Excel и вставляются в документ Word. Ре­

зультат показан на рис. 20.9.

вложения удалите временный файл. Ниже приведен пример отправки листа Лист1 актив­ ной рабочей книги.

В предыдущем примере файлу было присвоено имя рабочей книги по умолчанию (например, Книга2 . x ls x ) . Для того чтобы рабочей книге, включающей один рабочий

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

Когда Excel “выбивается из сил”, на сцену “выходит” Outlook. Следующая процедура сохраняет активную рабочую книгу в виде PDF-файла, а также автоматизирует Outlook таким образом, что создается электронное сообщение с вложенным PDF-файлом.

'Подробности сообщения