Ciao a tutti,
Sto impazzendo!
Ho bisogno di inserire un'immagine (firma) al fondo di documenti word (office 2003/2007).
Uso OLEAutomation, ma non riesco a spostarmi al fondo del documento quando il documento ha più pagine
Ciao a tutti,
Sto impazzendo!
Ho bisogno di inserire un'immagine (firma) al fondo di documenti word (office 2003/2007).
Uso OLEAutomation, ma non riesco a spostarmi al fondo del documento quando il documento ha più pagine
Posto un po' di codice (uno dei tanti tentativi)
L'immagine viene aggiunta in testa al documento e non al fondo.codice: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;
Alfine ho trovato.
codice: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.EndKey(unit :=wdStory) ; word.selection.inlineshapes.addpicture('c:\firma.jpg'); ..... word.free; end;
Scusate, nel post precedente ho dimenticato una libreria:
codice: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.GoTo(wdGotoPage,wdGoToLast,wdgotoabsolute,EmptyParam); word.selection.inlineshapes.addpicture('c:\firma.jpg'); ..... word.free; end;
Invece di word.free usare--->> word := unassigned