Использование технологии автоматизации для работы с пакетом Microsoft Office, страница 8

Многие методы объектов автоматизации могут содержать необязательные формальные параметры, значения которых заданы по умолчанию. для таких параметров при вызове метода объекта в качестве фактических параметров задается EmptyParam константа, объявленная в модуле System системы Borland C++ Builder.

Далее приведены примеры, иллюстрирующие использование раннего связывания и которые были рассмотрены на лекции:

Пример 1. Использование модуля Word97.

void __fastcall TForm1::Button6Click(TObject *Sender)

{

  TCOM_Application W;

  OleVariant D;

W = CoWordApplication::Create();

W.set_Visible(true);

D = AnsiString("F:\fff.doc");

W.Documents->Open(D,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,NULL);

W.Documents->Add(EmptyParam,EmptyParam);

W.Selection->InsertAfter(L"Пример №3 создания нового документа\n");

W.Selection->InsertAfter(L"и передачи в него текста\n");

W.Selection->InsertAfter(L"методом раннего связывания\n");

W.Selection->Collapse(wdCollapseEnd);

ShowMessage("Для продолжения нажмите кнопку");

W.Quit(wdDoNotSaveChanges,EmptyParam,EmptyParam);

}

Пример 2. Использование компонентов системы Borland C++ Builder (страница Office2k палитры компонентов).

void __fastcall TForm1::Button5Click(TObject *Sender)

{

WordApplication1->Connect();

WordApplication1->Visible = true;

WordApplication1->Documents->Add(EmptyParam,EmptyParam);

WordApplication1->Selection->InsertAfter(L"Пример №4 создания нового документа\n");

WordApplication1->Selection->InsertAfter(L"и передачи в него текста\n");

WordApplication1->Selection->InsertAfter(L"методом раннего связывания\n");

ShowMessage("Контроль результатов");

WordApplication1->Disconnect();

}

Лабораторное задание
и порядок его выполнения

1.  Ознакомиться с основами технологии автоматизации и освоить ее на примерах, приведенных в описании лабораторной работы.