FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Error Creando Fichero de Word
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Error Creando Fichero de Word
Posted: Wed Oct 28, 2015 09:37 AM
Hola a todos:

Tengo varias opciones del programa que crea y graba un fichero de Word.

Hasta ahora lo hacia bien, pero no se si es que he puesto "bcc7" o Microsoft Office 2013 que me da un error al grabar el fichero.

Yo uso una plantilla que tengo en una carpeta general (c:\colthop\cyewin\impranua\diligenc.doc), le reemplazaba unos valores y lo grababa como destino (c:\colthop\cyewin\emp00001\dili2015.doc) hasta ahora siempre lo grababa en formato .DOC como el original y despu茅s yo lo habr铆a para que el usuario lo pudiese ver y modificar. Pero ahora se queda pidiendo confirmaci贸n del nombre y en vez de poner el de destino (c:\colthop\cyewin\emp00001\dili2015.doc) pide confirmaci贸n de grabar el origen con formato .DOCX (c:\colthop\cyewin\impranua\diligenc.docx).

Podr铆ais ayudarme estoy probando de todo y no lo consigo se queda en la l铆nea de oDoc:INVOKE("SaveAs" ,cFich)

Code (fw): Select all Collapse
oWord:=TOleAuto():New( "Word.Application" )
cPlantilla := (fic1)
oDoc :=oWord:Documents:Open(cPlantilla) 聽 聽// abre el doc modelo
cViejo := "[EMPRESA]"
cCampo := (empresa)
reemplace2 ()
cViejo := "[NIF]"
cCampo := (nif)
reemplace2 ()
cViejo := "[POBLACION]"
cCampo := (poblacion)
reemplace2 ()
cViejo := "[PROVINCIA]"
cCampo := (provincia)
reemplace2 ()
cViejo := "[DOMICILIO]"
cCampo := (domicilio)
reemplace2 ()
cViejo := "[EJERCICIO]"
cCampo := (ejercicio)
reemplace2 ()
cViejo := "[DIA]"
cCampo := (dia)
reemplace2 ()
cViejo := "[MES]"
cCampo := (mes)
reemplace2 ()
cViejo := "[ANO]"
cCampo := (ano)
reemplace2 ()
cViejo := "[CARGO]"
cCampo := (cargo)
reemplace2 ()
cViejo := "[NUMEUNO]"
cCampo := (numeuno)
reemplace2 ()
cViejo := "[TEXTUNO]"
cCampo := (textuno)
reemplace2 ()
cViejo := "[NUMEDOS]"
cCampo := (numedos)
reemplace2 ()
cViejo := "[TEXTDOS]"
cCampo := (textdos)
reemplace2 ()
cViejo := "[NUMETRES]"
cCampo := (numetres)
reemplace2 ()
cViejo := "[TEXTTRES]"
cCampo := (texttres)
reemplace2 ()
cViejo := "[NUMECUATRO]"
cCampo := (numecuatro)
reemplace2 ()
cViejo := "[TEXTCUATRO]"
cCampo := (textcuatro)
reemplace2 ()
cViejo := "[NUMECINCO]"
cCampo := (numecinco)
reemplace2 ()
cViejo := "[TEXTCINCO]"
cCampo := (textcinco)
reemplace2 ()
oDoc := oWord:Get("ActiveDocument") 聽// object (documento activo)
* oDoc:Invoke( "SaveAs", cFich ) 聽 聽 聽 // graba fichero

oDoc:SaveAs(cFich, 1 ) 聽 聽 聽 // graba fichero

oDoc:Invoke('Close',0) 聽 聽 聽 聽 聽 聽 聽 // cierra fichero
oDoc:=NIL
oWord:Quit()
oWord:=NIL


La he cambiado por oDoc:SaveAs (cFich,1) pero hace lo mismo.

Si grabo el fichero DOCX hace correctamente el reemplazo de todos los datos y despu茅s me da el error:

Code (fw): Select all Collapse
Application
===========
聽 聽Path and name: C:\ColtHop\CyEWin\CyEWin.exe (32 bits)
聽 聽Size: 8,102,912 bytes
聽 聽Compiler version: Harbour 3.2.0dev (r1506171039)
聽 聽FiveWin 聽Version: FWH 13.11
聽 聽Windows version: 6.2, Build 9200 

聽 聽Time from start: 0 hours 10 mins 43 secs 
聽 聽Error occurred at: 28/10/2015, 10:34:02
聽 聽Error description: (DOS Error -2147352567) WINOLE/1007 聽El comando fall贸 (0x800A1066): Microsoft Word
聽 聽Args:
聽 聽 聽[ 聽 1] = C 聽 C:\ColtHop\CyEWin\EMP00001\dili2015.doc
聽 聽 聽[ 聽 2] = N 聽 1

Stack Calls
===========
聽 聽Called from: 聽=> TOLEAUTO:SAVEAS( 0 )
聽 聽Called from: gestcuan.prg => GESTCUA411( 5356 )
聽 聽Called from: gestcuan.prg => (b)GESTCUA413( 5254 )
聽 聽Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 476 )
聽 聽Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 667 )
聽 聽Called from: control.prg => TCONTROL:HANDLEEVENT( 1731 )
聽 聽Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1470 )
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
聽 聽Called from: 聽=> WINRUN( 0 )
聽 聽Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1003 )
聽 聽Called from: cyewin.prg => MAIN( 203 )

System
======
聽 聽CPU type: Intel(R) Core(TM) i7-4720HQ CPU @ 2.60GHz 2600 Mhz
聽 聽Hardware memory: 8116 megs

聽 聽Free System resources: 90 %
聽 聽 聽 聽 GDI 聽 聽resources: 90 %
聽 聽 聽 聽 User 聽 resources: 90 %

聽 聽Windows total applications running: 6
聽 聽 聽 1 , 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 2 , C:\Windows\SYSTEM32\SHLWAPI.dll 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.9600.18006_none_a9ec6a 
聽 聽 聽 4 Conmutaci贸n de tareas, C:\ColtHop\CyEWin\CyEWin.exe 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 5 DDE Server Window, C:\Windows\SYSTEM32\OLE32.DLL 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 6 Layered Hidden Window, C:\ColtHop\CyEWin\freeimage.dll 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 

Variables in use
================
聽 聽Procedure 聽 聽 Type 聽 Value
聽 聽==========================
聽 聽TOLEAUTO:SAVEAS
聽 聽 聽Param 聽 1: 聽 聽O 聽 聽Class: ERROR
聽 聽GESTCUA411
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"C:\ColtHop\CyEWin\EMP00001\dili2015.doc"
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽1
聽 聽 聽Local 聽 1: 聽 聽U 聽 聽
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽(b)GESTCUA413
聽 聽TBTNBMP:CLICK
聽 聽 聽Param 聽 1: 聽 聽O 聽 聽Class: TBTNBMP
聽 聽TBTNBMP:LBUTTONUP
聽 聽TCONTROL:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽28
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽17
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽0
聽 聽 聽Local 聽 1: 聽 聽L 聽 聽.T.
聽 聽 聽Local 聽 2: 聽 聽S 聽 聽
聽 聽TBTNBMP:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽514
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽0
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽1835025
聽 聽 聽Local 聽 1: 聽 聽U 聽 聽
聽 聽_FWH
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽514
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽0
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽1835025
聽 聽WINRUN
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽1835025
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽514
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽0
聽 聽 聽Param 聽 4: 聽 聽N 聽 聽1835025
聽 聽 聽Param 聽 5: 聽 聽N 聽 聽70
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TBTNBMP
聽 聽TMDIFRAME:ACTIVATE
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽198592
聽 聽MAIN
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"MAXIMIZED"
聽 聽 聽Param 聽 2: 聽 聽U 聽 聽
聽 聽 聽Param 聽 3: 聽 聽U 聽 聽
聽 聽 聽Param 聽 4: 聽 聽U 聽 聽
聽 聽 聽Param 聽 5: 聽 聽U 聽 聽
聽 聽 聽Param 聽 6: 聽 聽U 聽 聽
聽 聽 聽Param 聽 7: 聽 聽U 聽 聽
聽 聽 聽Param 聽 8: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽 9: 聽 聽U 聽 聽
聽 聽 聽Param 聽10: 聽 聽U 聽 聽
聽 聽 聽Param 聽11: 聽 聽U 聽 聽
聽 聽 聽Param 聽12: 聽 聽U 聽 聽
聽 聽 聽Param 聽13: 聽 聽U 聽 聽
聽 聽 聽Param 聽14: 聽 聽U 聽 聽
聽 聽 聽Param 聽15: 聽 聽U 聽 聽
聽 聽 聽Param 聽16: 聽 聽U 聽 聽
聽 聽 聽Param 聽17: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽18: 聽 聽U 聽 聽
聽 聽 聽Param 聽19: 聽 聽U 聽 聽
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDIFRAME
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽

Linked RDDs
===========
聽 聽DBF
聽 聽DBFFPT
聽 聽DBFBLOB
聽 聽DBFCDX

DataBases in use
================

聽 1: 聽 聽EMPRESA 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽RddName: DBFCDX
聽 聽 聽==============================
聽 聽 聽RecNo 聽 聽RecCount 聽 聽BOF 聽 EOF
聽 聽 聽 聽 139 聽 聽 聽 聽 聽143 聽 聽 聽.F. 聽 .F.

聽 聽 聽Indexes in use 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽TagName
聽 聽 聽 聽 => numero 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 EMPRE01
聽 聽 聽 聽 聽 聽apellidos + nombre 聽 聽 聽 聽 聽 聽 聽 聽 EMPRE02

聽 聽 聽Relations in use

聽40: => DATOWOR3 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 RddName: DBFCDX
聽 聽 聽==============================
聽 聽 聽RecNo 聽 聽RecCount 聽 聽BOF 聽 EOF
聽 聽 聽 聽 聽 1 聽 聽 聽 聽 聽 聽1 聽 聽 聽.F. 聽 .F.

聽 聽 聽Indexes in use 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽TagName

聽 聽 聽Relations in use

Classes in use:
===============
聽 聽 聽1 ERROR
聽 聽 聽2 HBCLASS
聽 聽 聽3 HBOBJECT
聽 聽 聽4 TCURSOR
聽 聽 聽5 TFONT
聽 聽 聽6 TWINDOW
聽 聽 聽7 TMDIFRAME
聽 聽 聽8 TCONTROL
聽 聽 聽9 TICON
聽 聽 10 TBRUSH
聽 聽 11 TMENU
聽 聽 12 TMENUITEM
聽 聽 13 TMDICLIENT
聽 聽 14 TMSGBAR
聽 聽 15 TRECT
聽 聽 16 TMSGITEM
聽 聽 17 TTIMER
聽 聽 18 TSAY
聽 聽 19 TMDICHILD
聽 聽 20 TMETER
聽 聽 21 TRIBBONBAR
聽 聽 22 TRPANEL
聽 聽 23 TRBGROUP
聽 聽 24 TRBTN
聽 聽 25 TBTNBMP
聽 聽 26 TCOMBOBOX
聽 聽 27 TGET
聽 聽 28 GET
聽 聽 29 TCLIPGET
聽 聽 30 TBITMAP
聽 聽 31 TIMAGE
聽 聽 32 TBUTTON
聽 聽 33 WIN_OLEAUTO
聽 聽 34 TOLEAUTO
聽 聽 35 TREG32

Memory Analysis
===============
聽 聽 聽 218 Static variables

聽 聽Dynamic memory consume:
聽 聽 聽 Actual 聽Value: 聽 聽 聽 聽 聽0 bytes
聽 聽 聽 Highest Value: 聽 聽 聽 聽 聽0 bytes



Gracias y Un saludo

Carlos
Colt Hop ED, S.L.
Carlos Blas Fern谩ndez Dom铆nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions