主题：利用网页浏览器显示预览所有文件 求纠正当文件类型为WORD的时候弹出打开 保存对话框，让WORD直接预览在网页浏览器中！

求纠正下面红色代码

当附件名字选择后，不提示打开还是保存对话框  而是直接显示为网页浏览器预览 让所有类型的附件都可以砸网页浏览器中预览

Dim pbx As WinForm.PictureBox = Forms("资源主窗体").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("资源主表").Current Is Nothing Then
    pbx.Image = Nothing
Else
    '  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("资源附件").SQLFind("附件名称='" & e.Sender.SelectedItem & "' and 资源编码='" & Tables("资源主表").Current("资源编码") & "'")   
    If dt IsNot Nothing '必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then '如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容") '从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If

 Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("资源附件").Find("附件名称='" & lbx.SelectedItem & "' and 资源编码='" & Tables("资源主表").Current("资源编码") & "'")
Dim fl As String =  ProjectPath & "附件\" & lbx.SelectedItem
Dim fj As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If dr.SQLLoadFile("附件内容",fl) Then '如果提取文件成功
    fj.Address = fl
End If

新问题出现

当附件是WORD文件的时候会提示一个弹出对话框 询问是打开还是保存  当点打开后 再在网页浏览器中显示

感觉十分不便

求纠正为不提示是否保存还是打开  而是 直接显示

 我测试没有你这种问题，这个和word的版本以及设置有关。

 那你直接弄一个webbrowser去显示某一个word表格，是否正常？

 我测试是正常的

---------------

 如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。