- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教：如何让这个WORD自动适应网页浏览框大小 并居中显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54640)
-- 发布时间：2014/8/1 9:29:00
-- 求教：如何让这个WORD自动适应网页浏览框大小 并居中显示
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 11:16:00
--
做了一个例子，可以控制webbrowser里面word文档。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:webbrowser控制word_测试.table |
-- 发布时间：2014/8/1 11:58:00
-- 回复：（有点甜） 做了一个例子，可以控制webbro...
能够单独打开WORD
此主题相关图片如下：1234.jpg
-- 发布时间：2014/8/1 12:01:00
--
测试没有问题的，请尝试不同word文件看看。
-- 发布时间：2014/8/1 14:56:00
-- 回复：（有点甜） 测试没有问题的，请尝试不同wo...
如图
此主题相关图片如下：qq图片20140801145540.jpg
-- 发布时间：2014/8/1 15:00:00
--
重要提示：
1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。
2、在WebBrowser显示的Word菜单缺少包括打印命令的程序菜单，你可以按快捷键“Ctrl+P”打印，或者自定义word的快速访问栏，加入打印命令加上去。
-- 发布时间：2014/8/1 15:31:00
-- 回复：（有点甜） 重要提示： 1、如果...
有点甜老师 不好意思 按照操作第一步还是问题依旧
-- 发布时间：2014/8/1 15:48:00
-- 回复：（有点甜） 重要提示： 1、如果...
继续求解
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:卷宗.foxdb |
-- 发布时间：2014/8/1 16:34:00
--
我测试2楼例子没有问题，你用其它电脑测试一下。
-- 发布时间：2014/11/24 0:27:00
-- 回复：（有点甜）?我测试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