gersonmaba
01-12-2011, 00:25:01
Buenas Tardes,
Tengo un Software desarrollado en Delphi 7, el cual tiene un proceso de combinacion de correspondencia el cual lo hace bien en office 2003 - 2007, pero en el 2010 no lo hace bien...los espacios de combinacion quedan en blanco.
Utilizo el Siguiente Codigo.
wrdDoc.MailMerge.CreateDataSource('C:\CLIENTES_PROMESA.doc',,,'Firmas,diaProm');
wrdDataDoc := wrdApp.Documents.Open('C:\CLIENTES_PROMESA.doc');
wrdDataDoc.Tables.Item(1).Cell(2,1).Range.InsertAfter(Firmas);
wrdDataDoc.Tables.Item(1).Cell(2,2).Range.InsertAfter(formatDateTime('dd', DataModulo.ZQNegociofechaAprobacion.AsDateTime)); // diaProm
wrdDataDoc.Save;
wrdDataDoc.Close(False);
wrdMailMerge.Execute(False);
wrdDoc.Saved := True;
wrdDoc.Close(false);
Alguien sabe a que se debe..y como corregir este proceso?ˇ
Muchas Gracias.
Tengo un Software desarrollado en Delphi 7, el cual tiene un proceso de combinacion de correspondencia el cual lo hace bien en office 2003 - 2007, pero en el 2010 no lo hace bien...los espacios de combinacion quedan en blanco.
Utilizo el Siguiente Codigo.
wrdDoc.MailMerge.CreateDataSource('C:\CLIENTES_PROMESA.doc',,,'Firmas,diaProm');
wrdDataDoc := wrdApp.Documents.Open('C:\CLIENTES_PROMESA.doc');
wrdDataDoc.Tables.Item(1).Cell(2,1).Range.InsertAfter(Firmas);
wrdDataDoc.Tables.Item(1).Cell(2,2).Range.InsertAfter(formatDateTime('dd', DataModulo.ZQNegociofechaAprobacion.AsDateTime)); // diaProm
wrdDataDoc.Save;
wrdDataDoc.Close(False);
wrdMailMerge.Execute(False);
wrdDoc.Saved := True;
wrdDoc.Close(false);
Alguien sabe a que se debe..y como corregir este proceso?ˇ
Muchas Gracias.