[求助] WebBrowser 显示 Word 文档 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，例子中的显示Word 怎么没在窗口中而是在 office 打开的？office 已经添加到注册表了。谢谢！

以前一直没问题的，我用的是Word 2003 是不是现在版本太低的问题？类型 WPSdoc 是否有影响？如何解决？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:webbrowser.foxdb

此主题相关图片如下：qq图片20180324220734.png

此主题相关图片如下：qq图片20180324232740.png

此主题相关图片如下：qq图片20180325094328.png

是这个WPS 的问题。老师，现在很多电脑都装有WPS，有什么办法排除WPS的干扰呢？是否可以调用WPS的Dell？或者将wps.doc直接修改成 .doc？

Dim web1 As Windows.Forms.WebBrowser

web1 = e.Form.Controls("WebBrowser1").baseControl

AddHandler web1.DocumentCompleted,addressof WebBrowser1_DocumentCompleted

axWebBrowser = Nothing

Dim web As Object = e.Form.Controls("WebBrowser1").basecontrol

web.Navigate("D:\Publish\Project\RemoteFiles\新闻图片内容\" & dr("标题"))

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop ' Document

Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)

oApplication.ActiveWindow.DocumentMap = False

oDocument.Protect (Password:="123456", NoReset:=False, Type:= _

MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

oDocument.saved = True

vars("doc") = oDocument

[此贴子已经被作者于2018/3/25 11:00:20编辑过]

主题：[求助] WebBrowser 显示 Word 文档