Вывод информации в документ Msword

Вывод информации в документ Msword

Однажды мне понадобилось вывести на печать текстовую и графическую информацию вместе, причем в определенном порядке.
Мне посоветовали вывести всю информацию в документ программы word97 и печатать информацию его
средствами.
Привожу пример:

code

procedure tform1.button1click(sender: tobject);
var direction:olevariant;
line:integer;
begin
wordapplication1.connect;
wordapplication1.visible:=true;
wordapplication1.documents.add(emptyparam,emptyparam);
wordapplication1.selection.insertafter('Рисунок:'+#13);
//Вывод текста,
//#13 - перевод строки

direction:=0;
wordapplication1.selection.collapse(direction);
// снять выделение

clipboard.assign(image1.picture);
wordapplication1.selection.paste;//Вывод рисунка

wordapplication1.disconnect;
end;



В разделе "uses" должены быть подключены модули "jpeg", "word97", "oleserver", "clipbrd", на форму нужно
поместить компоненты "wordapplication" и "worddocument" из раздела "servers".

Источник:
http://subrins.narod.ru/delphi4.html#ogl

Эта запись была добавлена в Вторник, 6 мая, 2008 - 21:19 В разделы Microsoft Office, Word. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.