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