Foxtable(狐表) → 用户栏目 → 专家坐堂 → word嵌入窗口


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

主题：word嵌入窗口
帅哥哟，离线，有人找我吗？
kgdce
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		word嵌入窗口  发帖心情 Post By：2019/6/26 19:35:00 [显示全部帖子]

遇到问题，就是显示的题，二次不能再显示，另外在程序退出时，要释放word应用程序。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:word嵌入窗口.zip
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 10:43:00 [显示全部帖子]

你这个文件前面我看到过，就是以此思路继续的，但与我现在上传的本贴中的文件，思路还是有些区别，我贴中思路是：
1.定义一个public的word共用程序，用这个程序打开word文件和切换文件，这样速度快，不需要开多个应用程序；
2.对public定义的共用程序也好用vba操作.  
实际的困难就是winapi函数不会应用才导致此问题，请帮助按照现有思路能否改进？也就是嵌入窗口的是公用程序，并切换文档也能在窗口显示。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627103158.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/27 10:45:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 13:35:00 [显示全部帖子]

谢谢！多数问题已解决，但还有两个小细节问题需解决才完美。
1.System.Threading.Thread.Sleep(2000)，通过此句延时保证程序是打开的，才执下面的代码，可能会出现word还没有打开就执行了下面的程序，这需要改进，如何改进？
vars("标题") = "第" & e.Row("题号") & "题"
Dim CallBack As New EnumWindowsProc(AddressOf EnumWindowsProcCallBack)
EnumWindows(CallBack, 0)
2.当打开一道题时，会在任务管理器中出现两个word进程，其中一个是这句代码（Public _app As new msword.application）打开的，
另外一个word应用程序是这句代码（_app = new msword.application）打开的
而关闭窗口时，只关闭了一个word进程，另一个如何关闭？
3.最后一个问题，打开老师给的示例时，为什么一打开就会弹出窗口，我没找到相应的命令，是什么原因？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627133055.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：627 积分：6899 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2019/6/27 16:18:00 [显示全部帖子]

解决上述问题的同时，又出现了新问题：就是将word进程全部退出了，但二次再打开这个窗口程序执行就会出错。

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190627161612.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询