Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在窗口中打开文件


  共有5663人关注过本帖树形打印复制链接

主题：在窗口中打开文件
帅哥哟，离线，有人找我吗？
有点甜
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:06:00 [只看该作者]

axWebBrowser = Nothing
Do Until axWebBrowser IsNot Nothing
    Application.DoEvents
Loop
Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)

try
    doc.Range(Start:=20, End:=30).InlineShapes.AddPicture(FileName:= _
    "D:\123.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)
    Doc.save
    messagebox.show("您已成功插入图片!!")
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try
 回到顶部
帅哥哟，离线，有人找我吗？
lesliecheung912
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：452 积分：3015 威望：0 精华：0 注册：2014/4/23 17:12:00 		  发帖心情 Post By：2014/10/13 16:17:00 [只看该作者]

谢谢甜姐！另外有个问题，Excel在WebBrowser中显示时要将Excel锁定是用VBA，将指定单元格范围的区域锁定，
那么Word文档锁定应该按照什么锁定呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:25:00 [只看该作者]

 一样

 

doc.Protect (Password:="", NoReset:=False, Type:= _
        MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

 

http://msdn.microsoft.com/zh-cn/library/office/jj230379.aspx

 
 回到顶部
帅哥哟，离线，有人找我吗？
lesliecheung912
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：452 积分：3015 威望：0 精华：0 注册：2014/4/23 17:12:00 		  发帖心情 Post By：2014/10/13 16:26:00 [只看该作者]

以下是引用有点甜在2014-10-13 16:06:00的发言：

axWebBrowser = Nothing
Do Until axWebBrowser IsNot Nothing
    Application.DoEvents
Loop
Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)

try
    doc.Range(Start:=20, End:=30).InlineShapes.AddPicture(FileName:= _
    "D:\123.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)
    Doc.save
    messagebox.show("您已成功插入图片!!")
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

上面代码执行完后并没有报 messagebox：("您已成功插入图片!!")

再打开Word时才会提示插入成功，这个顺序有点不符合逻辑啊
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:28:00 [只看该作者]

 请把例子发上。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:28:00 [只看该作者]

axWebBrowser = Nothing
Do Until axWebBrowser IsNot Nothing
    Application.DoEvents
Loop
Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)

try
    doc.Range(Start:=20, End:=30).InlineShapes.AddPicture(FileName:= _
    "D:\123.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)
    Doc.save
    messagebox.show("您已成功插入图片!!")
catch ex As exception
    msgbox(ex.message)
finally
    'app.Quit
End try
 回到顶部
帅哥哟，离线，有人找我吗？
lesliecheung912
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：452 积分：3015 威望：0 精华：0 注册：2014/4/23 17:12:00 		  发帖心情 Post By：2014/10/13 16:31:00 [只看该作者]

我把外部数据源去掉了，麻烦您看一下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:二进制列.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:34:00 [只看该作者]

 请单独做一个例子发上来，肯定没有问题。内容都在楼上。
[此贴子已经被作者于2014-10-13 16:34:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lesliecheung912
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：452 积分：3015 威望：0 精华：0 注册：2014/4/23 17:12:00 		  发帖心情 Post By：2014/10/13 16:41:00 [只看该作者]

你能不能在这个例子的基础上添加个外部表然后增加一个Word文件试一试好不好呢？我也不知道再怎么单独做例子了

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/10/13 16:45:00 [只看该作者]

 我测试是完全没有问题的。

 回到顶部
总数 55 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询