Работаем с Word -> Форум на Исходниках.RU [Powered by Invision Power Board]

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

Если у Вас нет на панели инструментов закладки Servers - то можно

проделать следующее :

Создаем новый пакет с использованием библиотеки типов. Выберите Project | Import

Type library.

Из списка зарегистрированных серверов выберите библиотеку типов Word (Microsoft

Word 9.0 Object Library (на моем компьютере установлен Microsoft Office 2000,

поэтому в списке присутствует 9.0, для предыдущих версий Office, номера версий

будут меньше)).

Укажите имя закладки палитры компонентов (Pallete Page), куда будут установлены

новые классы - TWordGlobal, TWordApplication, TWordDocument, TWordFont,

TWordParagraphFormat, TWordLetterContent. Выберите закладку Servers.

Установите флажок General Component Wraper для генерации компонентов на основе

библиотеки типов и размещения ее на палитре компонент, а затем нажмите кнопку

Install.

Установите сервер на палитру компонент.

Если закладка - Servers есть то выше перечисленные действия делать не надо.

Фундаментальным объектом любого приложения является Application. Давайте получим

к нему доступ .

· создаем новый проект;

· на главную форму выкладываем компонент WordApplication с закладки

Servers;

· устанавливаем свойства компонента AutoConnect и AutoQuit в True;

· запускаем приложение на выполнение.

Не забудьте добавить в #include <COMOBJ.hpp>.

#pragma link "Word_2K_SRVR"- для 2000

#pragma link "Word_97_SRVR"- для 97

Если у вас обе строки добавлены то не избежать ошибок Ambiguity between

В большинстве случаев нам надо подключиться к уже существующему интерфейсу, а

не создать его заново. Также это может быть необходимо, когда контроллер должен

отслеживать события, происходящие в COM сервере. Рассмотрим следующий пример:

· создаем новое приложение;

· помещаем на форму компоненты WordApplication и WordDocument;

· устанавливаем в True свойства AutoConnect и AutoQuit компонента

WordApplication;

· устанавливаем в значение ckAttachToInterface свойство ConnectKind для

объекта WordDocument;

· для события onDokumentChange прописываем такой код:

· //производим подключение к текущему документу

· WordDocument1->ConnectTo( WordApplication1.ActiveDocument);

· //Контроллер добавляет новую строку в текущий документ

· WordDocument1->Range->InsertAfter(#13+'Переход к документу'+#13+

· WordApplication1->ActiveDocument->Get_FullName+' произведен :'+

· DateTimeToStr(Now));

для события OnFormCreate прописываем следующее:

· WordApplication1->Visible=true;

После запуска приложения будет автоматически загружен Microsoft Word, создайте в

нем несколько новых документов и "попереключайтесь" между ними. Вы увидите, что

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

Точно так же можно управлять и сервером ExcelApplication. При создании новой

рабочей книги на сервере, в контроллере будет проинициализировано событие

onNewWorkBook, которое можно обработать аналогично примеру с Word.

Теперь рассмотрим еще один пример.

Пусть существует необходимость формировать некий отчет в виде документа

Microsoft Word, для чего нами используется файл-шаблон (к примеру, с именем

test.doc). Поля, которые должны быть заменены, помечены символом «~» или другим

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

заменить метки реальными данными, после чего сформированный документ должен быть

отправлен на печать, сохранен.

В test.doc имеется шапка таблицы и нам необходимо заполнить таблицу данными из

запроса (может бать любой контейнер с данными).

Создадим новый проект и поместим на форму компоненты WordApplication(WApp),

WordDocument(WDoc) и кнопку (TButton). В качестве обработчика события нажатия на

кнопку укажем следующий код:

//Следующие переменные понадобятся нам для выполнения методов сервера

OleVariant FileName;

OleVariant oldStr,newStr;

OleVariant EmptyPar=False;

OleVariant Yes=True;

FileName=GetCurrentDir()+"\\test.doc";

//Открываем шаблон документа

WApp->Visible=false; // что бы не моргал при заполнении данными но можно

поставить в true

// тогда весь процесс заполнения , замены будет на экране

WApp->Caption = StringToOleStr("Отчет");//Задание заголовка для окна Word

WApp->Documents->Add(FileName,EmptyParam);

WDoc->ConnectTo(WApp->ActiveDocument); //Связываем компонент с существующим интерфейсом

WDoc->ConnectTo(WordApplication1->Documents->Item(ItemIndex));

Если есть несколько открытых документов.

//Находим в документе метки и производим их замены

oldStr=AnsiString("~1");

newStr=AnsiString("Метка 1");

WDoc->Range(EmptyParam,EmptyParam)->Find->Execute(oldStr,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

newStr,Yes);

TablePtr MyTable=WApp->ActiveDocument->Tables->Item(1) ;

// получаем указатель на нашу таблицу

RangePtr MyRange =MyTable->Range ;

String s;

TADOQuery * QF;

Создадим запрос к примеру «select * from table1» как создавать запросы и

работать с ними сдесь рассматривать не будем.

В принципе это могут быть и таблицы (TTable)

String pole;

int Current=0; //счетчик

QF->First();

long j;

while (!QF->Eof)

{

MyTable->Rows->Add(); // вставляем новую строку в таблицу

int fild= QF->Fields->Count;

String nPole;

for (int p=1 ;p<fild-3 ;p++) // цикл по полям

{

MyTable->Borders->set_OutsideLineWidth(wdLineWidth300pt);

MyTable->Borders->set_InsideLineStyle(wdLineStyleThinThickSmallGap);

nPole=Table1->Fields->Fields[j]->AsString;//Можно делать проверку на тип и

формат данных

MyTable->Cell(1,p)->Range->InsertAfter(StringToOleStr(nPole));

}

QF->Next();

}

FileName= GetCurrentDir()+"\\newtest.doc";

Сохраняем в формате Word 6.0/95 (*.doc)

OleVariant EmptyS=StringToOleStr("");

WDoc->SaveAs(FileName,(OleVariant)104,EmptyParam,

EmptyS,Yes,EmptyS,

EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam);

WDoc->Close(EmptyParam,EmptyParam,EmptyParam);

WApp->Visible=1;

WApp->Disconnect();

Некоторые полезные замечания :

MyTable->Cell(j,1)->VerticalAlignment=wdCellAlignVerticalCenter;

MyTable->Cell(j,1)->Range->Paragraphs->Alignment=wdAlignParagraphCenter;

//Создание таблицы

WordApplication1->Selection->Font->Bold = false;

WordApplication1->ActiveDocument->Tables->Add(WordApplication1->Selection->Range

, MainFrm->Query???->RecordCount + 9, 6);

Этот код, он вставляет данные после таблицы

// String stn = "\n";

// String koltnS; // строка для форматирования общей суммы в ???

// koltnS = koltnS.FormatFloat("0.00000", QF->?????->Value);

// stn = stn + " Сумма реализации: "+ koltnS;

// WDoc->Range(EmptyParam,EmptyParam)->InsertAfter(StringToOleStr(stn));

// WordFont1->ConnectTo(WordDocument1->Sentences->get_Last()->get_Font());

// WordFont1->Size = 12;

// WordFont1->Bold = true;

// WordFont1->Color = wdColorIndigo;

// Если понадобиться код объединения ячеек

WordApplication1->Selection->Tables->Item(1)->Cell(4,1)->

Merge(WordApplication1->Selection->Tables->Item(1)->Cell(4,6));

Еще вариант сохранения док-та

stn = MainFrm->DBEdit5->Text;

int n = stn.Length();

if (n == 1) stn = "0" + stn;

stn = "?????" + stn + MainFrm->Edit1->Text + ".doc";

//Сохранение документа

WordDocument1->SaveAs(&TVariant(WideString(stn)),

&TVariant(wdFormatDocument));

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

WordDocument1->Range(EmptyPar,EmptyPar)->InsertAfter(StringToOleStr("Test"));

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

WordApplication1->Visible[0]=true;

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

Variant vApp;

try {

vApp = Variant::GetActiveObject("Word.Application");

} catch(EOleSysError &ex) {

try{

vApp = Variant::CreateObject("Word.Application");

} catch(EOleSysError &ex) {

// не удалось запустить сервер

} catch(...) {

// неизвестная ошибка

}

} catch(...) {

// не удалось подключиться к серверу

}

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

Variant vDoc = vApp.OlePropertyGet("Documents").OleFunction("Open",имя_файла);

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

Аббревиатура OLE обозначает Objects Linked and Embedded (Присоединенные И

Встроенные Объекты - ПИВО ;) ). Данные, разделяемые между приложениями

называются OLE объектом. Приложение, которое может содержать OLE объекты,

называют OLE контейнером (OLE Container). Приложение, данные из которого

можно включить в OLE контейнер в виде OLE объекта, называют OLE сервером.

Например, MicroSoft Word может включать в документ графические объекты,

аудио- и видеоклипы и множество других объектов (такой документ иногда

называют составным документом - compound document).

Как следует из названия, OLE объекты можно либо присоединить к OLE

контейнеру, либо включить в него. В первом случае данные будут храниться в

файле на диске, любое приложение будет иметь доступ к этим данным и сможет

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

только он сможет просматривать и модифицировать эти данные.

OLE является дальнейшим развитием идеи разделяемых между приложениями

данных. Если с помощью DDE можно было работать с текстом, то OLE позволяет

легко встроить в приложение обработку любых типов данных. Как и в случае с

DDE, для правильной работы приложения-клиента (OLE контейнера) требуется

наличие приложения OLE сервера. Каждый раз, когда в программе-клиенте

пользователь обращается к OLE объекту с целью просмотра или редактирования

данных (обычно двойной щелчок мышкой на объекте), запускается приложение-

сервер, в котором и происходит работа с данными.

В природе существует несколько видов OLE, отличающихся по способу

активации OLE сервера. OLE версии 1 запускает сервер в отдельном окне. OLE

2 реализует то, что называется in-place activation and editing.

Развитие идеи OLE привело к появлению OLE automation - приложение-клиент

может выполнить часть кода сервера. Тип OLE объекта, помещенного в

программу-клиент, определяется тем, какую версию OLE поддерживает сервер.

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

WordApplication1->Visible[0]=true;

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

WordApplication1->Visible[0]=TOLEBOOL(true);

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "Word_2K_SRVR"

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString fname;

OpenDialog1->Execute();

fname=OpenDialog1->FileName;

if (fname!="")

{

WordApplication1->Connect();

WordApplication1->set_Visible(false);

WordApplication1->GetDefaultInterface()->Visible = false;

WordApplication1->set_DisplayAlerts(false);

WordApplication1->Documents->Open(TVariant(fname));

WordApplication1->ActiveDocument->Select();

WordApplication1->Selection->Copy();

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

WordDocument1->ConnectTo(WordApplication1->ActiveDocument);

WordDocument1->Activate();

WordApplication1->Selection->Paste();

WordDocument1->SaveAs(TVariant("c:\\~temp.docx"));

WordDocument1->Close(TVariant(false));

WordApplication1->Quit(TVariant(false));

WordApplication1->Disconnect();

ZipForge1->FileName="c:\\~temp.docx";

ZipForge1->OpenArchive(fmOpenRead);

ZipForge1->ExtractFiles(L"*.wmf");

ZipForge1->CloseArchive();

DeleteFileA("c:\\~temp.docx");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

ShellExecute(NULL,"open","word\\media", NULL, NULL, SW_SHOWNORMAL);

}

//---------------------------------------------------------------------------

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

void __fastcall TForm1::Button1Click(TObject *Sender) {

if (!OpenDialog1->Execute())

return;

//-------------------------------------

AnsiString fname = OpenDialog1->FileName;

WordApplication1->Connect();

// и всё остальное

}

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

void __fastcall TForm1::Button1Click(TObject *Sender) {

if (!OpenDialog1->Execute())

return;

//-------------------------------------

AnsiString fname = OpenDialog1->FileName;

WordApplication1->Connect();

// и всё остальное

}