[borockov]

Всем добра друзья=). У меня такой вопрос, столкнулся с проблемой вывода данных из dbedit'ов и dbimage в WORD. Друзья как это можно реализовать?

[borockov]

Вот сама форма

[NumLock]

через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются.

[borockov]

Сообщение от NumLock

через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются.

Спасибо=))

[borockov]

Друзья, в общем разобрался с выводом из edit в word, если кому то интересно см.вложеный файл.
p.s делал всё по урокам Антона Макрушина, второй сезон. Всем добра=))

[borockov]

Друзья, возник ещё 1 вопрос. Прошу помочь тех кто разбирается в объектной модели word. Вот смотрите таким образом я делаю вывод данных из dbedit в word

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
word,doc:OleVariant;
str,text,type1,foto:string;
begin
Getdir(0,str);
 word:=CreateOleObject('Word.Application');
 word.documents.open(str+'\sotr2.dot');
 
 doc:=word.documents.item(1);
 text:=doc.paragraphs.item(1).Range.Text;
 text:=Replace(text,'DBEdit3',DBEdit3.Text);
 text:=Replace(text,'DBEdit4',DBEdit4.Text);
 text:=Replace(text,'DBEdit5',DBEdit5.Text);
 doc.paragraphs.item(1).Range.Text:=text;
 
 doc:=word.documents.item(1);
 text:=doc.paragraphs.item(3).Range.Text;
 text:=Replace(text,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(3).Range.Text:=text;

  doc:=word.documents.item(1);
 text:=doc.paragraphs.item(6).Range.Text;
 text:=Replace(text,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(6).Range.Text:=text;

Друзья как вывести фото из dbimage? С текстом всё понятно. Если к тексту мы обращаемся с помощью "paragraphs" то как можно обратиться к фото?