VB中打开word,第一次可以打开，第二次就打不开了。

Question

我在vb程序中放置了一个按钮，当点击这个按钮时就调用word把本机C:\dempfile.doc打开。
第一次运行时可以正常运行，word打开后再关闭掉，但窗体不关闭，这样为什么就无法打开了呢，
代码如下：
       On Error Resume Next
       Set wdWord = CreateObject("word.Application")
        Documents.Open FileName:="c:\tempfile.doc"
        wdWord.Visible = True
        wddoc.Activate
如果把on Error Resume Next 去掉。在第二次执行时就会出错。错误提示为：
远程服务器不存在或不能使用。。请问有什么办法 可以解决上面出的问题。。让程序可以执行，并显示出文档。。

Answer 1

       Set wdWord = CreateObject("word.Application")
        Documents.Open FileName:="c:\tempfile.doc"
        wdWord.Visible = True
        wddoc.Activate
       '......
       wdWord.Close 
       wdWord.Quit
       set wdWord =Nothing

Answer 2

Word脱离出了程序，，是单独打开的

Answer 3

Documents.Open FileName:="c:\tempfile.doc"
-------------------------------------------------
上面那句有点问题，改为下面的：
Privat Sub ....
    Dim wordApp As Object
    Set wordApp = CreateObject("word.application")
    wordApp.Visible = True    Dim myDoc As Object
    Set myDoc = wordApp.Documents.Open("c:\1.doc") '打开Word
    '......
    Set myDoc = Nothing
    Set wordApp = Nothing
End Sub