VB 输出word文档 出现“远程服务器不存在或不能使用”，望高手指点。

Question

代码如下，第一次运行没有问题，第二次提示“远程服务器不存在或不能使用”。
网上的好多方法都试了，还是不行！老鸟指点一下啊！

Option Explicit
Private SQLstr As String
Private wdApplication As New Word.Application
Private wdDoc As New Word.Document
Private wdRange As Range
Private wdPragraph As Paragraph

Private Sub CmdQueDing_Click()
'启动Word
On Error Resume Next
Set wdApplication = GetObject(, "Word.Application")
If Err.Number > 0 Then
Err.Clear
Set wdApplication = CreateObject("Word.Application")
If Err.Number > 0 Then
MsgBox Err.Description
End If
End If
Err.Clear

'调用过程制作班级发书单
On Error GoTo RZY:
Call MakebanjiFaShuDan
Exit Sub
RZY:
MsgBox Err.Description

End Sub

Private Sub MakeBanJiFaShuDan()

……………………

Set wdDoc = wdApplication.Documents.Add

'可以设置Word文挡的所有属性
With wdDoc
.Content.Font.Name = "宋体"
.Content.Font.Size = "8"
.SaveAs FileName:=PathName
End With

Set wdDoc = wdApplication.ActiveDocument

'页面设置
With wdDoc.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
End With
…………………………
'关闭文档
wdDoc.Save
wdDoc.Close
' Set wdDoc = Nothing

Next
' wdApplication.Application.Quit
wdApplication.Quit
' Set wdApplication = Nothing
End Sub
问题已经解决，谢谢关注该问题的朋友。
解决办法是将：wdApplication.Quit 这句去掉，不要退出word对象，虽然可能要占用一定的内存资源，但问题解决了。
如果其他朋友能够提供更好的方法，本人不胜感激。

Answer 1

Private wdApplication As New Word.Application
Private wdDoc As New Word.Document
每次程序运行时，这两个变量就被重新创建；但之前这两个变量都未关闭，所以就出错了。
你可以试试这样写
Private wdApplication As Word.Application
Private wdDoc As Word.Document
然后在程序开始时，这样写
set wdApplication=nothing
set wdDoc=nothing
set wdApplication= new Word.Application
set wdDoc=new Word.Document
每次引用后，利用set ... = nothing 释放对像。