头都大了，怪异问题

Question

声明
Dim ExamWord As Object
Dim ExamWord_Doc As Object进入
Set ExamWord = CreateObject("Word.Application")
ExamWord.Visible = True
Set ExamWord_Doc = Nothing
Documents.Open FileName:=文件名 
Set ExamWord_Doc = ActiveDocument退出
ExamWord.Quit savechanges:=True
Set ExamWord_Doc = Nothing
Set ExamWord = Nothing'-------------
'第一次执行没有问题
'再执行就说462错误，远程服务器不存在或不能使用
'只有重新编译

Answer 1

ExamWord.Documents.Open FileName:=文件名
Set ExamWord_Doc = ExamWord.ActiveDocument

Answer 2

ExamWord.Quit savechanges:=True
Set ExamWord_Doc = Nothing
Set ExamWord = Nothing退出部分去掉，然后使用完word文件后，把整个word关了（人工），否则进程当中总有一个word

Answer 3

我试了hhjjhjhj(大头)是正确的.多谢.
结分