Ver Mensaje Individual
  #4  
Antiguo 18-12-2009
identsoft identsoft is offline
Miembro
 
Registrado: abr 2006
Posts: 282
Reputación: 19
identsoft Va por buen camino
Yo le he resuelto de la siguiente forma en Delphi2006:
Hay que utilizar la uses ComObj

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
 var
   fichero : String;
   wrdMailMerge : Variant;
 begin
   wrdApp := CreateOleObject('Word.Application');
   fichero := ExtractFilePath(Application.ExeName) + 'carta_combinar_correspondencia';
   wrdDoc := wrdApp.Documents.Open(fichero);
   wrdDoc.Select;
   wrdDoc.MailMerge.opendatasource('fuente_de_datos');
   wrdMailMerge := wrdDoc.MailMerge;
   wrdapp.visible:= true;
   Form1.Close;
end;
Funcionar, funciona.
Problemas: en Word 2007 hay que pinchar el boton de 'vista previa'

espero que sirva y espero que alguien lo mejore
Un saludo
Responder Con Cita