100分求够有关问题 VB高手来看看

100分求够问题 VB高手来看看啊
引用microsoft   word   9.0

Dim   word   As   Object
Dim   wdApp   As   word.Application
Dim   wdDoc   As   word.Document

Private   Sub   Command1_Click()
      Set   wdApp   =   CreateObject( "word.application ")
              Set   wdDoc   =   wdApp.documents.Open(App.Path   &   "\1.doc ")   '打开word文件
              wdApp.Visible   =   False                                                           'word是否显示
               
        ActiveDocument.Range(0,   1).Select               '光标移到最前

'         wdDoc.Close:   Set   wdDoc   =   Nothing
        wdApp.documents.Close:
        wdApp.Quit:   Set   wdApp   =   Nothing               '关闭后释放内存
End   Sub

以上代码
第1次按的时候可以用   在按一次的话
就会提示       "远程服务器不存在或不能使用 "
请问要怎么解决这个问题   谢谢回复``~



[解决办法]
是不是你第一次关的时候对方问你是否保存，但是看不到对话框呢？
wdApp.documents.save
wdApp.documents.Close
wdApp.Quit: Set wdApp = Nothing
这样看看

你设置一个断点，看看哪里出问题了
[解决办法]
你一定还是用了ActiveDocument!自己找找看！！！