表单上如何显示*.doc（或*.docx）文档的内容 - 编程论坛

#2

sdta2021-03-26 14:26

照葫芦画瓢会吗

#3

王咸美2021-03-26 15:01

SET DEFAULT TO ADDBS(JUSTPATH(SYS(16)))
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    width = 800
    height = 400
    ADD OBJECT list1 as listbox WITH left=10,top=10,width=200,height=380,RowSourceType=7
    ADD OBJECT wb as OleControl WITH left=220,top=10,width=570,height=380,OleClass="Shell.Explorer.2"
    PROCEDURE list1.click
        cHtml = this.list(this.ListIndex)
        IF UPPER(JUSTEXT(cHtml))=="HTML"
            thisform.wb.Navigate(this.list(2)+cHtml)
        ENDIF
    ENDPROC
ENDDEFINE

以上是引用的是吹版主的代码，不知如何改动下面代码，能实现我提出的功能，请高手帮忙。
IF UPPER(JUSTEXT(cHtml))=="HTML"
            thisform.wb.Navigate(this.list(2)+cHtml)

#4

sdta2021-03-26 15:05

HTML改为DOC试试

#5

王咸美2021-03-26 17:05

没用

#6

吹水佬2021-03-27 09:14

回复 3楼王咸美

这个是用WebBrowser控件打开HTML格式文件，通常不能打开WORD的DOC格式文件，有WebOffice支持可能行，但复杂化了。
安装了Office WORD的可用Word.Application打开。
也有个Word.Document控件，但只能是静态打开文件，效果也不友好，好象显示图片一样。