Hello,
I am trying to make a very simple aplication :
Open a RTF-file with word.exe
The user can edit this file and MUST save or end word
First i downloaded tWord.zip from patrick's site . I can compile , but i can not make a working sample as described.
Any example is welcome
Frank
function MemoEdit( cText)
LOCAL hWnd
Memowrit("C:\TEMP\efkes.rtf",cText)
Shellexecute(0 ,0 , "C:\TEMP\efkes.rtf" ,0 ,0 , 1)
hWnd := FINDWND( "EFKES.RTF" )
? "Attention , continue only when the text file is corectly closen"
DO WHIL .T.
hWnd := FINDWND( "EFKES.RTF" )
IF !EMPTY( hWnd )
? " rtf-file not closed : " + CRLF + GETWINDOWTEXT( hWnd )
? "The program closes it "
SENDMESSAGE( hWnd, 16 )
//CloseWindow(hWnd)
ELSE
EXIT
END
END
cText := Memoread("C:\TEMP\efkes.rtf" )
do while ( hWnd := FINDWND( "EFKES.RTF" ) ) == 0
SysRefresh()
end
? "Attention , continue only when the text file is corectly closen"Antonio,
The client asked me to avoid the msginfo , but also when i add your code , this seems not to be possible
Now , i see very shortly the meginfo , and then is word activated.
Without the msginfo , i can return to the program without closing word , this gives problems in the next time the shellexecute is activated.
Any idea ?
Frank
...
OLEWORD97(oWndMain,"C:\TEMP\efkes.rtf")
...
FUNCTION OLEWORD97(oOLEWnd,cFName)
LOCAL oWnd, cWndName := cFileName(cFName) + " - Microsoft Word"
DEFINE WINDOW oWnd TITLE "FiveWin OLE Support" FROM 0, 0 TO 600, 800 PIXEL
oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open( cFName )
oWord:Visible := .t.
oWord:WindowState := 1
//oWord:PrintOut() // You need print?
oWord:End()
ACTIVATE WINDOW oWnd ON INIT (WinExec(cWndName), WinCapsule(oWnd,cWndName))
//VALID ( oWord:End(), .t. )
RETURN
Function WinCapsule(oWin,cWName)
local lCaptured, hIE
hIE := FindWindow(0,cWName)
lCaptured := ( hIE > 0 )
IF lCaptured
SetParent(hIE, oWin:hWnd)
SysRefresh()
ELSE
MsgRun('OLE not activated.')
ENDIF
return nilFUNCTION OLEWORD97(oOLEWnd,cFName)
LOCAL oWnd, oWord, cWndName := cFileName(cFName) + " - Microsoft Word"
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" FROM 0, 0 TO 600, 800 PIXEL
oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open( cFName )
oWord:Visible := .t.
oWord:WindowState := 1
//oWord:PrintOut()
//oWord:End()
ACTIVATE WINDOW oWnd ON INIT (WinExec(cWndName), WinCapsule(oWnd,cWndName)) ;
VALID ( oWord:Quit(), oWord:End(), .t. )Is this better than using TWORD?
http://fivetechsoft.com/forums/viewtopi ... ight=tword
What do I need to INCLUDE to try the code you have included here?