WebBrowser & Word 问题

Question

（1）WebBrowser1.Navigate (App.Path + "\Temp.doc")打开了一word。能只读打开吗？（2）我试着向temp.doc中写入数据，提示写入失败。。此时能删除Temp.doc吗? 

Answer 1

把doc文件设为只读的，怎么样打开都是只读的了：）

Answer 2

没有说清楚.数据库test.mdb; ListView; WebBrowser.test.mdb一个表中有三列: ID ,Title,OLE数据我现在要实现的功能是，在窗体的ListView中显示Title,在WebBrowser中显示相关联的Ole数据（Ole数据先生成doc文件）。点击ListView中不同的Title，WebBrowser中相关联显示。问题出来了：Ole数据生成Temp.doc.
Private Sub ListView1_DblClick()On Error Resume NextDim i As Integer
i = ListView1.SelectedItem.IndexDim sqlAs StringDim temp As Longtemp = CLng(ListView1.SelectedItem.Text)  'ID
sql= "select * from Table1 where ID = " & tempIf DataRec1.State <> adStateClosed Then
   DataRec1.Close
End If   DataRec1.Open sql, DataConn, 1, 3If DataRec1.RecordCount <> 0 Then   If Dir(App.Path & "\Temp.doc") <> "" Then
 
        Kill App.Path & "\Temp.doc"      '实时错误 75,路经或文件访问出错。
        
    End If
    
    Set stmword = New ADODB.Stream    With stmword
        .mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write DataRec1!File
        .SaveToFile App.Path & "\TempTest.doc"
        .Close
    End With    Set stmword = Nothing            WebBrowser1.Navigate2 (App.Path + "\Temp.doc") 
            WebBrowser1.Visible = True
          
End If
 
End Sub请大家帮帮忙。或者有没有好的办法?或者不使用WebBrowser，有没有方便的控件显示word？

Answer 3

With stmword
        .mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write DataRec1!File
        .SaveToFile App.Path & "\Temp.doc"   ''上面打错了。
        .Close
    End With先谢啦！