word

[Marcelo Roggeri]

Hola, estoy queriendo abrir un archivo de word, el tema es que ese archivo puede estar siendo editado desde otra pc (red) y al abrirlo desde otra quiero que el sistema de un mensaje de atencion, como que el archivo no puede ser editado porque otro usuario lo esta haciendo.

Code: Select all  Expand view

...
TRY
            oWord := TOleAuto():New( "Word.Application" )
            oWord:Documents:Open(cFichero)
            oWord:Visible     := .T.
            oWord:WindowState := 1 // Maximize

            hWnd := FindWindow( "opusApp" )
            IF hWnd > 0
               SetWindowPos( hWnd, -2, 0, 0, 0, 0, 3 )
            ENDIF

         CATCH oError
               // aca entra si borro el winword.exe desde el administrador de tareas
               WinExec("taskkill -f -im winword.exe")
               MsgInfo("Error al abrir el archivo"+CRLF+oError:Description)
         END
...
 

Espero haberme explicado correctamente.
Gracias de antemano
Marcelo

[anserkk]

Try this

Code: Select all  Expand view

cFichero:="D:\YoutFolder\YourWordFile.Doc"
nHandle:=0
if ( nHandle:=FOpen(cFichero,FO_WRITE) )  < 0  // There is a problem opening the file
   MsgInfo("Unable to open the file. May be some one in the network is using this file")  // Your msg
   Return .F.
Endif
// There was no problem opening the file in Write mode, so proceed as usual
FClose(nHandle)
// Your regular code to open word file goes here
oWord := TOleAuto():New( "Word.Application" )
oWord:Documents:Open(cFichero)
oWord:Visible     := .T.
oWord:WindowState := 1 // Maximize
...
...

Regards
Anser

[Marcelo Roggeri]

Hola, gracias por la ayuda anduvo perfecto.
Es lo que necesitaba
Por si a alguien le sirve al principio del prg hay que incluir este trozo de codigo
#include "fileio.ch"
Saludos
Marcelo

[Marcelo Roggeri]

Hola buenas tardes, siguiendo la consulta en cuestión, necesito agregar a un documento de word al final del mismo un texto, el tema es que no logro posicionarme al final del documento para escribir lo que necesito, me lo escribe al principio.
Si alguien me pude dar una mano por favor, heprobado varios metodos que busque pero no hubo caso.
Tambien me gustaria insertar el contenido de un archivo externo (es un sello hecho en word)
Saludos
Marcelo

[anserkk]

Try this,

Code: Select all  Expand view

#include "fivewin.ch"

#Define wdStory 6
#Define wdMove  0

FUNCTION MAIN()
    Local oWord,oDoc,oSelection

    oWord = CreateObject("Word.Application")
    oWord:Visible:=.T.
   
    oDoc = oWord:Documents:Open("D:\testdoc.doc")
   
    oSelection:= oWord:Selection
    oSelection:EndKey( wdStory, wdMove)
   
    oSelection:TypeParagraph()
    oSelection:TypeParagraph()
    oSelection:TypeText ("This text was appended from Fivewin to an existing MS-Word document.")

Return

Regards
Anser

[Marcelo Roggeri]

Muchas gracias, ya probe este codigo y me ha servido.
Muy agradecido
Saludos
Marcelo