[远程][服务器][机器]远程服务器机器不存在或不可用

找了好久，也没找到解决办法。各位给看看怎么解决。
第一次执行没问题，再运行一次就出这个错了“实时错误462.远程服务器机器不存在或不可用”
代码出错在这
sPath = App.Path & "stencil试卷.doc"
Set wdDoc = wdApp.Documents.Open(FileName:=sPath)

wdapp，wddoc不管定义成模块的还是过程的，都解决不了。