为编程爱好者分享易语言教程源码的资源网

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

一键打开当前WORD文档所在的文件夹

三叶资源网 2018-10-22 11:21:41 按键精灵Q语言 2983 ℃ 6 评论

一键打开当前WORD文档所在的文件夹

运行环境:分辨率:1680x1050 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.00.9460

@论坛管理员2011/10/28

VBSBegin   
On Error Resume Next  
Dim word  
s = "set word = GetObject(," & chr(34) & "word.application" & chr(34) & ")"  
execute s  
If Err.Number=0 Then  
    ret = word.activedocument.Path  
    RunApp  ret  
    Set word = Nothing  
End If  
VBSEnd


文件下载


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有6位网友发表了看法:

  • 资源网

    资源网  评论于 [2019-05-17 09:33:37]  回复

    按键精灵强制聊天

  • 易语言

    易语言  评论于 [2020-09-08 10:05:47]  回复

    按键精灵操作一个已经打开的word文档

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
打印窗口CURLxm-sign算法ETCPHP-Socket2加QQ好友udp广播组播异步服务总结应用遇见漂流瓶APP自动循环显示列表项目WMF图片转BMP世宝教程Socket快手无水印酷狗繁星PC协议字符串加密vue异常捕获图片切割ExUI图标列表框
最新评论