En el word tenes la funcion mailmerge para combinar un documento con un origen de datos. Normalmente es para generar desde una carta tipo varias personalizadas reemplazando nombre, direccion, etc por los valores extraidos desde un archivo o base de datos. Si en ese archivo o base de datos tenes un solo registro podes tener una carta tipo (o contrato tipo) que se personaliza reemplazando ciertos campos por tus datos. Tenes una referencia de Microsoft en http://msdn.microsoft.com/es-es/library/microsoft.office.tools.word.document.mailmerge%28VS.80%29.aspx [http://msdn.microsoft.com/es-es/library/microsoft.office.tools.word.document.mailmerge%28VS.80%29.aspx] y otra de portalfox en http://www.portalfox.com/index.php?name=News&file=article&sid=904&mode=nested&order=0&thold=0. [http://www.portalfox.com/index.php?name=News&file=article&sid=904&mode=nested&order=0&thold=0.] Igualmente podes buscar en internet. Saludos
Juan -----Original Message----- From: "Omar Bellio" <[email protected]> To: "GUFA List Member" <[email protected]> Date: Thu, 24 Dec 2009 08:11:34 -0300 Subject: [GUFA] automatizacion vfp con word Hernán, yo uso el siguiente código para buscar y reemplazar texto en un word. ProcedureFindText(tcTextas String,tcReplacementas String, toWord as object) asBoolean tcReplacement= Iif(Empty(tcReplacement),'',tcReplacement) #DefinenTipoReemplazoIif(Empty(tcReplacement),1,2)&& 2 = Replace all LocalllRetValasBoolean With toWord With .Selection With .Find .ClearFormatting .Replacement.ClearFormatting EndWith Do while.T. .HomeKey(6) llRetVal= .Find.Execute(tcText) IfllRetVal If Empty(tcReplacement) Exit Else .Text =tcReplacement EndIf Else Exit Endif EndDo EndWith EndWith #UnDefnTipoReemplazo ReturnllRetValEndProc ----- Original Message ----- From: [email protected] [mailto:[email protected]] To: GUFA List Member [mailto:[email protected]] Sent: Wednesday, December 23, 2009 8:02 PM Subject: [GUFA] automatizacion vfp con word Hola Amigos, necesito conformar un contrato de compra venta desde un formulario vfp abro un modelo del contrato en un archivo modelo guardado previamente en Word, el problema es que no puedo pasarle por variable los nombres y demas datos de las personas.. Me dan un link donde leer o me pasan un ejemplo por favor... Desde ya muchas Gracias y Saludos... HERNAN SULIGOY Rqta (Santa Fe)
