FoxPro/Visual FoxPro - Problema con insertar texto archivo word

   
Vista:

Problema con insertar texto archivo word

Publicado por Alberto (4 intervenciones) el 09/11/2012 22:42:55
El siguiente codigo se utiliza para copiar un archivo general de word a otro directorio luego abrirlo para insertar los valores de la variable "so.nom" en un bookmark del archivo, grabarlo, salir y luego abrirlo para visualizarlo. El codigo funciona para cualquier texto en el cuerpo del documento pero no funciona en texto dentro de una caja de texto. Alguien que me pueda guiar a poder insertar mi variable a la caja de texto.

ran = SUBSTR(ALLTRIM(STR(1000+m.manzana)), 1, 4)+SUBSTR(ALLTRIM(STR(1000+m.numsolar)), 2, 3)
ruta = SYS(5)+SYS(2003)+'\doctos\planos2\'+'plano'+SUBSTR(ALLTRIM(STR(10000+m.folio)), 2, 4)+'.docx'
IF FILE(ruta)
SELECT so
SET ORDER TO folio
SEEK m.folio
DECLARE INTEGER ShellExecute IN shell32.dll INTEGER, STRING, STRING, STRING, STRING, INTEGER
cfilename = ruta
WAIT WINDOW NOWAIT cfilename
caction = "open"
shellexecute(0, caction, cfilename, "", "", 1)
ELSE
WAIT WINDOW NOWAIT 'Procesando...'
COPY FILE 'doctos\planos\'+(ran)+'.docx' TO 'doctos\planos2\'+'plano'+SUBSTR(ALLTRIM(STR(10000+m.folio)), 2, 4)+'.docx'
SELECT so
SET ORDER TO folio
SEEK m.folio
owordobj = CREATEOBJECT("Word.Basic")
WITH owordobj
.appshow
owordobj.fileopen(ruta)
owordobj.ww7_editgoto("nom3")
owordobj.insert(ALLTRIM(so.nom))
owordobj.filesave
owordobj.fileexit
ENDWITH
SELECT so
SET ORDER TO folio
SEEK m.folio
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin
cFileName = ruta
WAIT cFileName WINDOW NOWAIT
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder