FiveTech Software tech support forums

Posted: **Sun Mar 27, 2011 7:43 am**

I made last year two small function to call wiword,

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

Posted: **Sun Mar 27, 2011 8:29 am**

Use

TRY
CATCH
END

Posted: **Sun Mar 27, 2011 8:41 am**

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

Posted: **Sun Mar 27, 2011 10:02 am**

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

Posted: **Sun Mar 27, 2011 7:15 pm**

sorry

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

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

FiveTech Software tech support forums

call Winword

call Winword

Re: call Winword

Re: call Winword

Re: call Winword

Re: call Winword