1. 开始VBScript块
2.     On Error Resume Next
3.     定义变量 word
4.     令 s = "set word = GetObject(," & chr(34) & "word.application" & chr(34) & ")"
5.     execute(s)
6.     如果 Err.Number = 0 则
7.         令 ret = word.activedocument.Path
8.         启动程序或打开文件 ret
9.         令 word = Nothing
10.     条件结束
11. 结束VBScript块