pegar imagen a word desde delphi

[ciscu]

Saludos a todos!!!

Podríais darme algun ejemplo de código para pegar una imagen a word de Office desde una aplicación de delphi?

Es que hago una captura de pantalla de mi programa en delphi(o donde sea),
la guardo en una bitmap con el siguiente codigo:

Bmp:=Tbitmap.Create;
Bmp.Height:=1000;
Bmp.Width:=1000;
Bmp.Canvas.CopyRect(Rect(1,1,1000,1000),Canvas,Rect(1,1,1000,1000));
Bmp.SaveToFile('c:\bmp.bmp');
Bmp.Free;


y el último paso que quiero hacer es pegar esta imagen en un archivo word, pero todo desde mi aplicacion delphi. Como pegar una imagen a word??

Os agradeceré si me dais alguna solucion u otro modo de hacerlo

Gracias de antemano!!! :D

[roman]

Experimenta con algo así


var
LinkToFile: Olevariant;
SaveWithDocument: OleVariant;
Range: OleVariant;

begin
LinkToFile := false;
SaveWithDocument := true;
Range := WordDoc.Range;

WordDoc.Range.InlineShapes.AddPicture(
'c:\bmp.bmp',
LinkToFile,
SaveWithDocument,
Range
);


donde WordDoc es una componente TWordDocument.

[ciscu]

He insertado tu código en mi programa y no sé si funciona o no porque no sé donde ubica el fichero Word, es decir, como sé que esta imagen se pega en cual fichero Word?, el que yo diga?, uno predeterminado con nombre ya establecido, etc...?

Espero tu respuesta

Gracias de antemano :)

[ciscu]

El tamaño de la imagen pegada en el archivo Word la puedes escoger tu o sale predeterminada??

Si me contestas una de las dos preguntas me considerare afortunado

Gracias!!!!