FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour No graba un documento Word
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 11:33 AM

Carlos, haz una prueba

Configura la carpeta Public para que pueda ser vista por todos los usuarios de la red y dale permisos de lectura y escritura a dicha carpeta
Configura el ejemplo para que grabe el documento en esa carpeta y coméntame los resultados

C:\Users\Public\Downloads

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 11:45 AM

Hola Cristóbal:

El programa esta en local, pero le he dado los permisos de escritura a la carpeta c:\users\donwloads y hace lo mismo lee y se queda en la grabación.

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.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 11:50 AM

Qué version de Office estás usando?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 11:56 AM

Hola:

He usado dos y en las dos pasa lo mismo ahora esta la 2013 y antes estaba la 2007.

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.
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 12:00 PM
Prueba este:

Code (fw): Select all Collapse
// Atencion !! Crea previamente un archivo test.doc
LOCAL oWord := CREATEOBJECT( "Word.Application" ) 
LOCAL oDoc := oWord:Documents:Open( "test.doc" ) 
oDoc:Save()
MsgInfo("Si hace el :Save()")


Quizá mañana pueda probarlo en Windows 8 (puro)
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 12:04 PM
Ahora prueba este:


Code (fw): Select all Collapse
// Atencion !! Crea previamente un archivo test.doc
#define wdFormatDOSText 4 

LOCAL oWord := CREATEOBJECT( "Word.Application" ) 
LOCAL oDoc := oWord:Documents:Open( "test.doc" ) 
oWord:DisplayAlerts:= .f.                                              // Importantisimo. Esto a mi en Excel, me llevó al borde del suicidio informático.
oDoc:SaveAs( "test.txt", wdFormatDOSText )



El cuelgue puede deberse a que Word está esperando una respuesta. No muestra mensaje, pero tampoco continua. Eso me ha pasado en Excel.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 12:06 PM

El equipo es el ACER que comentaste y desactivaste la utilidad que trae ( algo asi como ACERAgent o parecido ? )
He leido que eso estaba provocando problemas

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 12:36 PM

Hola:

El Save() si funciona por lo que he ajustado el resto de la función a crear primero el archivo y luego modificarlo y grabar con Save() y parece que funciona.

Lo compruebo en Windows 7 y si funciona lo dejo así.

Gracias por vuestro tiempo.

Por otra parte el equipo si es un ACER pero no de que es ACERAgent. Es algo que se ejecuta al principio o donde.

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.
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: No graba un documento Word
Posted: Wed Mar 16, 2016 12:39 PM
Por favor, prueba tambien el

Code (fw): Select all Collapse
oWord:displayAlerts:= .f.
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 04:48 AM
I don't know whether I understood your problem exactly. Anyways your code is working fine for me and it is saving the word contents in a text format file too.
The only change that I have made is that I have given the Full path of the file.

Tried on an Acer PC, Windows 10 64bit, MS-Office 2013

Code (fw): Select all Collapse
#Include "Fivewin.ch"
#define wdFormatDOSText 4

Function Main()    
    
    // Atencion !! Crea previamente un archivo test.doc

    LOCAL oWord := CREATEOBJECT( "Word.Application" )
    LOCAL oDoc := oWord:Documents:Open( "D:\test\test.doc" )
    oWord:DisplayAlerts:= .f.   // Importantisimo. Esto a mi en Excel, me llevó al borde del suicidio informático.
    oDoc:SaveAs( "D:\test\test.txt", wdFormatDOSText )
    
Return


Regards
Anser
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 07:44 AM

Hola hmpaquito:

Puse lo que me comentaste y también se queda bloqueado, no se si esta instrucción lo que hace es quitar las alertas, cosa que mi nunca me puso simplemente se quedaba pillado.

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.
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 08:18 AM
Carlos,

Si aun tienes ganas de pruebas, prueba esto y nos cuentas:

Code (fw): Select all Collapse
#Include "Fivewin.ch"
#define wdFormatDOSText 4

Function Main()    
    
    // Atencion !! Crea previamente "c:\colthop\cyewin\a.doc" y NO hagas quit al oWord.
    Local cFile:= "c:\colthop\cyewin\a.doc"
    LOCAL oWord := CREATEOBJECT( "Word.Application" )
    LOCAL oDoc := oWord:Documents:Open( cFile)
    oWord:Visible:= .t.
    oDoc:SaveAs(cFile, wdFormatDOSText )
    
Return

Mi teoría es que Word está esperando porque está mostrando un dialogo... el problema sería que el dialogo no es mostrado. Quizá ahora con el := .t., al mostrar el documento, muestre tambien el dialogo.

A ver qué pasa.
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 08:26 AM

Hola hmpaquito:

Ya lo he probado y sigue bloqueándose.

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.
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 08:34 AM
Carlos,

Se trataría de ver si Word muestra un dialogo... a ver este:
Code (fw): Select all Collapse
#Include "Fivewin.ch"
#define wdFormatDOSText 4

Function Main()    
    
    // Atencion !! Crea previamente "c:\colthop\cyewin\a.doc" y NO hagas quit al oWord.
    Local cFile:= "c:\colthop\cyewin\a.doc"
    LOCAL oWord := CREATEOBJECT( "Word.Application" )
    LOCAL oDoc := oWord:Documents:Open( cFile)
    oWord:Visible:= .t.
    oWord:DisplayAlerts:= .t.
    oDoc:SaveAs(cFile, wdFormatDOSText )
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: No graba un documento Word
Posted: Thu Mar 17, 2016 08:51 AM
Hola hmpaquito:

He incluido lo que me dices:

1.- he crado a.doc y lo he dejado abierto
2.- al ejecutar me dice que hay una copia abierta y si deseo abrir o grabar.
3.- he seleccionado abrir una copia de solo lectura y se ha abierto de nuevo el a.doc solo lectura
4.- se ha quedado bloqueado en SaveAs
5.- Cuando cierro el Word sale el siguiente error:

Code (fw): Select all Collapse
Application
===========
   Path and name: C:\ColtHop\ColtHop.exe (32 bits)
   Size: 3,150,336 bytes
   Compiler version: Harbour 3.2.0dev (r1601050904)
   FiveWin  Version: FWH 13.11
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 3 mins 5 secs 
   Error occurred at: 03/17/16, 09:49:24
   Error description: (DOS Error -2147352567) WINOLE/1007  El comando falló (0x800A1066): Microsoft Word
   Args:
     [   1] = C   c:\colthop\cyewin\a.doc
     [   2] = N   4

Stack Calls
===========
   Called from:  => TOLEAUTO:SAVEAS( 0 )
   Called from: colthop.prg => MAIN( 21 )

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\SHELL32.DLL                                                                     
      3 , C:\Windows\SYSTEM32\SHLWAPI.dll                                                                     
      4 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.9600.18006_none_a9ec6a 
      5 Conmutación de tareas, C:\ColtHop\ColtHop.exe                                                                              
      6 DDE Server Window, C:\Windows\SYSTEM32\OLE32.DLL                                                                       

Variables in use
================
   Procedure     Type   Value
   ==========================
   TOLEAUTO:SAVEAS
     Param   1:    O    Class: ERROR
   MAIN
     Param   1:    C    "c:\colthop\cyewin\a.doc"
     Param   2:    N    4
     Local   1:    U    
     Local   2:    U    

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

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

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 WIN_OLEAUTO
     5 TOLEAUTO
     6 TREG32

Memory Analysis
===============
      209 Static variables

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



Si no me equivoco es que se cerro Word cuando estaba intentando grabar.

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.
Static archive · New replies & topics via GitHub Discussions