如何在表单上实现：左边显示*.doc（或*.docx）文档的标题，右边显示*.doc（或*.docx）文档的内容。望高手赐教，万分感谢！！！

照葫芦画瓢会吗

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)

HTML改为DOC试试

没用

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