No graba un documento Word

[cnavarro]

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

[colthop]

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

[cnavarro]

Qué version de Office estás usando?

[colthop]

Hola:

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

Un saludo

Carlos

[hmpaquito]

Prueba este:

Code: Select all | Expand

// 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]

Ahora prueba este:

Code: Select all | Expand

// 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]

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

[colthop]

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

[hmpaquito]

Por favor, prueba tambien el

Code: Select all | Expand

oWord:displayAlerts:= .f.

[anserkk]

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: Select all | Expand

#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]

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

[hmpaquito]

Carlos,

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

Code: Select all | Expand

#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 :Visible:= .t., al mostrar el documento, muestre tambien el dialogo.

A ver qué pasa.

[colthop]

Hola hmpaquito:

Ya lo he probado y sigue bloqueándose.

Un saludo

Carlos

[hmpaquito]

Carlos,

Se trataría de ver si Word muestra un dialogo... a ver este:

Code: Select all | Expand

#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]

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: Select all | Expand

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