Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
LOCAL lWordInstalled
lWordInstalled= .F.
On error * && do nothing
oWord = createObject("word.application")
if vartype( oWord) = "U"
messagebox( "Word not installed!")
else
lWordInstalled = .T.
messagebox(" Word IS installed, congrats, good choice!!,
you're my man!! HipHipHurray!!")
endif
On Error MyErrorhandler()
* place some code here to retrieve the document.
lcDoc = Getfile("Word document:DOC")
if lWordInstalled and not empty( lcDoc)
oWord.Documanets.Open(lcDoc)
oWord.visible = .T.
endif