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

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

运行环境:分辨率:1680×1050 色深: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
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

一键打开当前WORD文档所在的文件夹》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注