| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1395 人关注过本帖
标题:无重复打开WORD文档
只看楼主 加入收藏
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:763
专家分:2503
注 册:2011-5-8
结帖率:100%
收藏
 问题点数:0 回复次数:1 
无重复打开WORD文档
参考别人的代码,解决了无重复打开WORD文档问题 _fnm
Declare long SetForegroundWindow In user32.dll long &&设置顶层窗口
Declare Long FindWindow In WIN32API String lpClassName,String lpWindowName  
Wrd_hnd=FindWindow(null,JUSTFNAME(_fnm)+' - Word')
If Wrd_hnd=0
Wrd_hnd=FindWindow(null,JUSTFNAME(_fnm)+' - Microsoft Word')
Endif

IF Wrd_hnd<>0&&文件已经打开
SetForegroundWindow(wrd_hnd) &&不能少否则可能关联到其它文档
wdrs=GETOBJECT(,'word.application')
wdrs.WindowState=2  && 0 普通 1 最大化  2 最小化
else
wdrs=Createobject('word.application')  &&创建Word对象
wdrs.documents.Open(_fnm)
ENDIF
搜索更多相关主题的帖子: 打开 文档 WORD 重复 long 
2020-07-16 15:41
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
学习楼主的无么奉献,向楼主学习!
2020-07-16 15:53
快速回复:无重复打开WORD文档
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016361 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved