>In a test the following works for me with Word2000. You could use adir() to get the documents and loop through each:
>oWord = newobject('word.application')
>lcFile = GetFile("DOC")
>oDocument = oWord.Documents.Open(lcFile)
>lcPath = justpath(lcFile)
>lcNew = juststem(justfname(lcFile))
>oDocument.SaveAs(addbs(lcPath) + lcNew + ".htm", wdFormatHTML)
>oWord.Quit()
>release oWord
>return
>
Mark,
Thanks a lot for your reply. What is wdFormatHTML? Where did you get include file for Word? I'll try this code at work.
Thanks again.
If it's not broken, fix it until it is.
My Blog