FiveTech Software tech support forums

Posted: **Mon Apr 19, 2021 9:33 pm**

Hola a todos

Estoy intentado abrir un archivo RTF con Word mediante el siguiente código:

If FILE(cdoc)
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cdoc)
     oWord:Visible     := .T.
     oWord:WindowState := 1 // Maximize
 EndIf

Si bien se abre, solo se muestra el icono en la barrea de tareas,pero no se muestra el documento, tengo que darle al icono para que se abra y se muestre el documento.

¿Falta algo en el código?

Gracias

Posted: **Tue Apr 20, 2021 8:22 am**

Ramón,

Has probado a cambiar estas dos lineas así ?

oWord:Visible := .T.
oWord:Documents:Open( cdoc )

Posted: **Tue Apr 20, 2021 9:24 am**

This is working fine:

Code: Select all | Expand

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cDoc := CURDRIVE() + ":\" + CURDIR() + "\test.doc"

    LOCAL oWord

    If FILE( cDoc )
        oWord = TOleAuto():New( "Word.Application" )
        oWord:Documents:Open( cDoc )
        oWord:Visible = .T.
        oWord:WindowState = 1 // Maximize
        SETFOREGROUNDWINDOW( FINDWINDOW( "OpusApp" ) )
    ENDIF

    RETURN NIL

EMG

Posted: **Tue Apr 20, 2021 9:33 am**

Gracias, Antonio y Enrico

Sí, funciona con la claúsula del opus. No sabía que había que pedir permiso al opus para abrir una ventana. :wink:

Saludos y muchas gracias

Posted: **Tue May 11, 2021 3:45 am**

Perfecto buscaba esta solución hace mucho tiempo

FiveTech Software tech support forums

Word no se abre [SOLUCIONADO]

Word no se abre [SOLUCIONADO]

Re: Word no se abre

Re: Word no se abre

Re: Word no se abre

Re: Word no se abre [SOLUCIONADO]