这个脚本使用实在是很简单啊 ，就按开始键，然后输入对方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