Hola retomando el hilo les cuento que logro ver el word dentro de la window, pero me da un error al ACTIVATE WINDOW
Me podran dar una mano por favor
Code: Select all
FUNCTION ShowWord( oServer )
local oQry, nHandle
local oWndChild, oActiveX
local cTemp := hb_CurDrive() + ":\" + CurDir() + "\tempWord.docx"
local oWord, oDoc
local oteste, oWindow, oView, oIncorp
oQry = oServer:Query("SELECT file FROM files WHERE filename='marcelo.docx'")
IF oQry:RecCount() > 0
FErase( cTemp )
nHandle := FCreate( cTemp )
IF FError() # 0
CursorArrow()
MsgInfo( "Error al crear el archivo" )
ELSE
FWrite( nHandle, oQry:file, Len( oQry:file ) )
FClose( nHandle )
oQry:End()
DEFINE WINDOW oWndChild MDICHILD TITLE "WORD EN VENTANA HIJA" OF oWnd
oWord := CreateObject("Word.Application")
oDoc := oWord:Documents:Open(cTemp) // abre el doc modelo
syswait(.2)
oWndChild := FindWindow( "opusapp", 0 )
if oWndChild != nil
SetWindowLong( oWndChild, -16, WS_OVERLAPPED+WS_CLIPCHILDREN)
SetWindowLong( oWndChild, -20, WS_EX_NOPARENTNOTIFY+WS_EX_TOPMOST )
SetParent( oWndChild, oWnd:hWnd )
endif
oWord:WindowState := -4137
oWord:Move(0,0)
oWord:Visible := .T.
ACTIVATE WINDOW oWndChild
ENDIF
ELSE
MsgInfo( "Archivo no encontrado" )
ENDIF
RETURN NIL
Error description: Error BASE/1004 No exported method: BLCLICKED
Saludos
Marcelo