call Winword

[Silvio]

I made last year two small function to call wiword,

Code: Select all  Expand view

STATIC function stampa_iscrizione()
      LOCAL oWord
      LOCAL cPath:=CurDrive()+":\"+CurDir()+"\"
   oWord:=TOleAuto():New( "Word.Application" )
   oWord:Documents:Open(cPath+"modelli\iscrizione.doc")
   oWord:Visible := .T.
  * oWord:Set( "WindowState", 1 )  // Maximizado
  * oWord:END()
RETURN

now on windows seven , this func not run because perhaps he the pc have or not haven't the winword office

How we can do, from a fwh application, see if the pc have a wiword office and call the specific office application if our functions need it ?

and I want Know if there are problems with Tole to call Word.application

[anserkk]

Use

TRY
CATCH
END

[Silvio]

ok but
How I can make if on a pc have office 9 or 10 or 11 or 12

[Jack]

oWord := TOleAuto():New("Word.Application")
if empty(oWord)
MsgInfo("Word is not present")
else
if VAL(oword:Version) < 12
MsgInfo("It is an old word !")
endif
endif

[Silvio]

sorry

but I believe there is an possibility with (x)harbour to scan the system and know if

how many version of winword exist or there are not installed any version