Re: Insert image in word document

Posted by Giovanni Caramia on May 06, 2009

In Reply to Insert image in word document posted by Giovanni Caramia p12316 on April 28, 2009

I solved:

uses
comobj, word2000;

procedure TForm1.Button1Click(Sender: TObject);
var word : olevariant;
begin
Word := CreateOLEObject('Word.Application');

Word.Visible := true;

Word.Documents.Open(GetCurrentDir+'\word.doc');

word.Selection.EndKey(unit :=wdStory) ;

word.selection.inlineshapes.addpicture('c:\firma.j pg');

.....
word := UnAssigned;
end;

DelphiLand Club members: enter your Membership password.
Guests can get a Forum Guest password by subscribing to the DelphiLand Newsletter.