Exportar graficas a word

[soloriv]

Hola y Gracias
Quisiera saber como exportar a word desde delphi un tImage con un bmp que creo en ejecucion, un tmemo y una tabla plana
Por favor desde el principio con los componentes que hacen falta .
Saludos Soloriv.

[roman]

Para la imagen, una vez que que tienes el bitmap puedes copiarlo al portapapeles y pegarlo en el documento.

Para copiar el bitmap al portapapeles puedes usar esta rutina basada en el ejemplo que viene en la ayuda de Delphi:

Código Delphi [-]
procedure BitmapToClipboard(Bitmap: TBitmap);
var
  BmpFormat : Word;
  BmpData: Cardinal;
  BmpPalette : HPalette;

begin
  Bitmap.SaveToClipBoardFormat(BmpFormat, BmpData, BmpPalette);
  ClipBoard.SetAsHandle(BmpFormat, BmpData);
end;

Debes añadir la unidad ClipBrd a tu proyecto.

Para pegar la imagen del portapapeles al documento de Word puedes usar:

Código Delphi [-]
WordDoc.ActiveWindow.Selection.Paste;

donde WordDoc es un objeto TWordDocument enlazado a tu documento.

---------------

Para lo de la tabla plana te servirá el procedimiento DumpWord que te permite exportar cualquier DataSet a Word.

---------------

Lo del Memo, puede ser así

Código Delphi [-]
WordDoc.ActiveWindow.Selection.InsertAfter(Memo1.Text);

---------------

¿Algo más?

// Saludos

[soloriv]

Hola a todos
¡Gracias Roman! por el codigo, solo al procedimiento dumpword despues de mostrar las columnas la var que controla el numero de fila en la tabla debe inicializarce en dos para no sobreescribir a la columna. Por ultimo como dejo una linea de espacio entre una tabla y una imagen y como hago para mostrar dos tablas en word porque con dumpword llamado dos veces me da error
Saludos Soloriv.