Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

word
Posted: Wed May 16, 2012 01:05 AM

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 (fw): Select all Collapse

...
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

FWH - Harbour - BCC7 - PellesC

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: word
Posted: Wed May 16, 2012 05:29 AM

Try this

Code (fw): Select all Collapse

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

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: word
Posted: Wed May 16, 2012 03:45 PM

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

FWH - Harbour - BCC7 - PellesC

Marcelo Roggeri

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: word
Posted: Sat Sep 29, 2012 07:03 PM

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

FWH - Harbour - BCC7 - PellesC

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: word
Posted: Wed Oct 03, 2012 07:33 AM

Try this,

Code (fw): Select all Collapse

#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

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: word
Posted: Thu Oct 04, 2012 01:44 AM

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

FWH - Harbour - BCC7 - PellesC

FiveTech Support Forums

include "fileio.ch"

Continue the discussion