这个脚本使用实在是很简单啊 ，就按开始键，然后输入对方QQ几可以了 

作者：綦文博 

运行环境：分辨率：1024×768 色深：32位 操作系统：Windows XP 按键精灵版本：7.10.4422

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

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