Ver Mensaje Individual
  #2  
Antiguo 08-07-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita