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