Add picture in word documents 1

[gcaramia]

With Delphi 7 Pro
I need to add a picture (signature) at the bottom of word documents (office 2003/2007). Documents may have one or more pages each.
I'have tried with ole:

uses 
   comobj;

procedure TForm1.Button1Click(Sender: TObject);
var wdgotolast,wdgotopage,wdgotoabsolute : olevariant;
begin
   Word := CreateOLEObject('Word.Application');

   Word.Visible := true;

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

   word.Selection.GoTo(wdGotoPage,wdGoToLast,wdgotoabsolute,EmptyParam);
   word.selection.inlineshapes.addpicture('c:\firma.jpg');

   .....
   word.free;
end;

but the picture is inserted at the beginning of the document not at the end.

I tried also with bookmarks but theese are not recognised.

I'have tried with wdGotoLine/wdGotoLast but in this case the picture is inserted at the end of the first page.

Somebody can help with this code or other one ?
Any components free/shareware/commercial ?

Thanks
Giovanni Caramia

 

[DjangMan]

Have you tried recording a macro in Word?

 

[gcaramia]

DjangMan
No. i didn't.
I can try this solution.
But how can i run the macro from inside Delphi ?
As parameter in ShellExecute ?

Thanks
Giovanni

 

[DjangMan]

Record the macro so you can see the steps that are required. Then convert those steps to Delphi and run the automation as normal. I would guess that you're missing a line or two of code that the macro will reveal.

 

[gcaramia]

Thanks DjangMan !!!
Solution:

uses 
   comobj;

procedure TForm1.Button1Click(Sender: TObject);
var wdgotolast,wdgotopage,wdgotoabsolute : olevariant;
begin
   Word := CreateOLEObject('Word.Application');

   Word.Visible := true;

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

   [COLOR=red]word.Selection.EndKey(unit :=wdStory)[/color] ; 

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

   .....
   word.free;
end;

 

[gcaramia]

Sorry i forgot a library:

uses
   comobj,word2000;

procedure TForm1.Button1Click(Sender: TObject);
var wdgotolast,wdgotopage,wdgotoabsolute : 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.jpg');

   .....
   word := unassigned;
end;

Giovanni Caramia