by Marco Turco » Mon Jan 16, 2006 2:26 pm
Funziona, tuttavia mi appare in modo random il messaggio di errore
***
Application
===========
Path and name: K:\pigc\PIGC.Exe (32 bits)
Size: 6,569,472 bytes
Time from start: 0 hours 0 mins 37 secs
Error occurred at: 16/01/06, 12:54:13
Error description: Error Word.Application:ACTIVEDOCUMENT/1 Unknown error: ACTIVEWINDOW
Args:
Stack Calls
===========
Called from TOLEAUTO:ACTIVEWINDOW(0)
***
ed inoltre, dovendo richiamare la funzione più volte con difersi file rtf da aprire, non dovrei chiudere l'oggetto per non saturare la memoria ?
Vedi funzione Displayrtf in basso.
Marco
function DisplayRtf(cRtfFileName)
local oWord
local wsPrintView:=3
oWord := CreateObject("Word.Application")
oWord:Documents:Open(cRtfFileName)
oWord:ActiveDocument:ActiveWindow:View:Type = wsPrintView
oWord:Visible:=.t.
return nil