求教：如何让这个WORD自动适应网页浏览框大小并居中显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\卷宗封面.docx"
Dim fl As String = ProjectPath & "reports\卷宗封面.docx"
Dim wrt As New WordReport(Tables("表A"),tm,fl)
wrt.Build()
wrt.Quit
wbr.OfficeToolBar = True
wbr.Address = fl

求教：如何让这个WORD自动适应网页浏览框大小并居中显示

现在效果图

此主题相关图片如下：qq图片20140801094557.jpg

[此贴子已经被作者于2014-8-1 9:46:30编辑过]

做了一个例子，可以控制webbrowser里面word文档。

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

[此贴子已经被作者于2014-8-1 11:18:00编辑过]

能够单独打开WORD

网页组件不显示并报错

此主题相关图片如下：1234.jpg

测试没有问题的，请尝试不同word文件看看。

如图

此主题相关图片如下：qq图片20140801145540.jpg

重要提示：

1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。
2、在WebBrowser显示的Word菜单缺少包括打印命令的程序菜单，你可以按快捷键“Ctrl+P”打印，或者自定义word的快速访问栏，加入打印命令加上去。

有点甜老师不好意思按照操作第一步还是问题依旧

我之前的直接预览时可以显示的哦

你提供的帮助是另外打开WORD窗体不显示在WEB浏览器中

继续求解

例子附上

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

我测试2楼例子没有问题，你用其它电脑测试一下。

有点甜老师麻烦看看下面代码怎么运行报错呢？

代码是按照你给的例子照搬的我放在项目启动后加载事件

结果报错

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

axWebBrowser = Nothing
web.Navigate("d:\计算机机房安全保密规定暂行.doc")
'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.ActivePane.View.Zoom.Percentage = 100

错误如下：

.NET Framework 版本：2.0.50727.6419
Foxtable 版本：2014.10.23.1
错误所在事件：窗口,计算机机房安全保密,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。

然后依旧能够浏览WORD只是比例不正常显示还是120%

已经自行解决谢谢有点甜老师

代码如下

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

axWebBrowser = Nothing
Dim web1 As Object = e.Form.Controls("WebBrowser1").basecontrol
    web1.Navigate("d:\计算机机房安全保密规定暂行.doc")

    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.ActivePane.View.Zoom.Percentage = 100

[此贴子已经被作者于2014-11-24 0:31:30编辑过]

主题：求教：如何让这个WORD自动适应网页浏览框大小 并居中显示

主题：求教：如何让这个WORD自动适应网页浏览框大小并居中显示