Alejandro, te paso una funcion que utilizo (no recuerdo de donde la
saque) para generar un contrato prearmado en word, reemplazando algunos
valores.
cDocument = ALLTRIM(SYS(5)) + "\" + SYS(2003) + "\CONTRATO.DOC"
PUBLIC lValue, oWord, oDocument, loSelection
oWord=CREATEOBJECT("word.application")
oDocument=oWord.Documents.OPEN(cDocument)
loSelection=oWord.SELECTION
* - NOMBRE
THISFORM.wReemp("XXNOMBREXX", cNombre)
* - DNI
THISFORM.wReemp("XXDNIXX", cDni)
* - DOMICILIO
THISFORM.wReemp("XXDOMICILIOXX", cDomicilio)
* - PROVINCIA
THISFORM.wReemp("XXPROVINCIAXX", cProvincia)
* - grabo con el nombre del contrato + documento
cDoc2 = ALLTRIM(SYS(5)) + "\" + SYS(2003) + "\PLANILLAS\ACUERDO-" + cDni
+ ".DOC"
oWord.ActiveDocument.SaveAs(cDoc2)
oWord.VISIBLE =.T.
* - metodo wReemp
PARAMETERS cBuscar, cReemplazar
WITH loSelection.FIND
.TEXT = cBuscar
.Forward = .T.
.WRAP= 1
ENDWITH
DO WHILE .T.
lValue = loSelection.FIND.Execute
IF lValue
loSelection.Cut
loSelection.font.bold = .T.
loSelection.InsertBefore(cReemplazar)
loselection.MoveRight
ELSE
EXIT
ENDIF
ENDDO
RETURN
Espero te sirva.
Saludos.
Roberto
El 27/09/2013 12:52 p.m., Alejandro Paciotti escribió:
Muchachos: disculpen que los moleste, pero al estar apurado confío que
van a ser mas rápidos que google.
Tengo que combinar un documento de word con ciertos valores
almacenados en variables (al estilo de combinar correspondencia de word)..
¿ Tienen a mano algún ejemplo ?
Desde ya, muchas gracias!
--
[email protected] <mailto:[email protected]>
--
------------------------------
* Por favor, no imprima este mensaje a no ser que sea absolutamente
necesario. Todos somos responsables por el cuidado del medio ambiente.*
* Este e-mail, y cualquier archivo adjunto, fue escrito sólo para la/s
persona/s o ente/s al que está dirigido, pudiendo contener información
confidencial o privilegiada. Está prohibido revisar, distribuir, copiar,
imprimir o hacer cualquier otro uso de este e-mail y sus adjuntos por
personas o entidades distintas del destinatario. Si recibió este e-mail por
error, por favor contacte inmediatamente al emisor y destruya el material.
** Según la legislación local vigente, las comunicaciones electrónicas,
incluyendo el correo electrónico, pueden ser escaneados por nuestros
sistemas para los fines de seguridad de la información y la evaluación de
la conformidad con la política interna.
** El emisor no acepta responsabilidad por errores u omisiones producidas
ni garantiza lo transmitido por este medio debido a que puede ser objeto de
interpretación, alteración, demora u otras anomalías.*
