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

一键打开当前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