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

老师，如何在打开窗口1 时直接用窗口1（webbrowser控件）打开当前行对应的“内容”（Word文件），并隐藏Word工具，禁止编辑文档。谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:webbrowser控制word_测试.table

[此贴子已经被作者于2016/9/5 18:49:32编辑过]

正是这个例子中的，如何在打开窗口1 时直接用窗口1（webbrowser控件）打开当前行对应的“内容”（Word文件），并隐藏Word工具，禁止编辑文档。谢谢！

axWebBrowser = Nothing

Dim dr As Row = CurrentTable.Current

If dr IsNot Nothing Then

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

web.Navigate(ProjectPath & "Attachments\" & dr("内容"))

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop

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

End If

Dim refmissing As [Object] = System.Reflection.Missing.Value

Dim args As Object() = New Object(3) {}

args(0) = 24

args(1) = 2

args(2) = refmissing

args(3) = refmissing

axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args)

老师，您上次告诉我的上面是代码，窗口都打不开，必须加上

Dim web1 As Windows.Forms.WebBrowser
web1 = e.Form.Controls("WebBrowser1").baseControl
AddHandler web1.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
axWebBrowser = Nothing

才能执行。但是，如果当前行内容为空，会有错误提示。请教该如何处理。foxtable 外的东西我真的一点都不懂。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160922231909.png

已解决了

[此贴子已经被作者于2016/9/23 7:00:41编辑过]

主题：[求助]打开Word 文件