topic-40281

Posts: 152

Joined: Mon Feb 13, 2006 08:23 PM

Word no se abre [SOLUCIONADO]
Posted: Mon Apr 19, 2021 09: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

FWH 20.12 BCC7

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Word no se abre
Posted: Tue Apr 20, 2021 08:22 AM

Ramón,

Has probado a cambiar estas dos lineas así ?

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: Word no se abre
Posted: Tue Apr 20, 2021 09:24 AM

This is working fine:

Code (fw): Select all Collapse

#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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Ramón J.

Posts: 152

Joined: Mon Feb 13, 2006 08:23 PM

Re: Word no se abre
Posted: Tue Apr 20, 2021 09: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: