Word no se abre [SOLUCIONADO]

[Ramón J.]

Hola a todos

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

Code: Select all  Expand view  RUN

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

[Antonio Linares]

Ramón,

Has probado a cambiar estas dos lineas así ?

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

[Enrico Maria Giordano]

This is working fine:

Code: Select all  Expand view  RUN

#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

[Ramón J.]

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.

Saludos y muchas gracias

[CARLOS ATUNCAR]

Perfecto buscaba esta solución hace mucho tiempo