急，用vb调Word作过报表的请看一看，“远程服务器不存在或不可用”

[baishu]

执行第二次时总报这个错误。 “远程服务器不存在或不可用”
（第一次没有问题）

代码如下：
Dim wd As New Word.Application
Dim ww As Document
On Error GoTo ErrorLine
'Set wd = New Word.Application
Set ww = wd.Documents.Open(App.Path & "\database\ReportModel.doc")
With wd
'
' 宏在 2003-4-7 由 Szw 录制
'
'Rst_FiniData
Rst_FiniData.Requery
Selection.MoveDown Unit:=wdLine, Count:=6
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"1"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"2"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"3"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"4"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"5"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"6"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"7"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"8"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"9"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"10"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveUp Unit:=wdLine, Count:=9
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"11"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"22"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"13"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"14"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"15"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"16"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"17"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"18"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_FiniData.Fields(4).Value: Rst_FiniData.MoveNext '"19"
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveDown Unit:=wdLine, Count:=10
Selection.MoveLeft Unit:=wdCharacter, Count:=16
Selection.MoveDown Unit:=wdLine, Count:=1


'Rst_CheckData
Rst_CheckData.Requery
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"20"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"21"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"22"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"23"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"24"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"25"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"26"
Selection.MoveRight Unit:=wdCharacter, Count:=7
Selection.MoveUp Unit:=wdLine, Count:=6
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"27"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"28"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"29"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"30"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"31"
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Rst_CheckData.Fields(4).Value: Rst_CheckData.MoveNext '"32"


ww.SaveAs FileName:=Str_FileName
ww.Close savechanges:=False
wd.Quit savechanges:=False
End With
Set ww = Nothing
Set wd = Nothing
Exit Sub
ErrorLine:
MsgBox Err.Description, vbOKOnly + vbInformation, "CreateReport"
ww.Close savechanges:=False
wd.Quit savechanges:=False
Set ww = Nothing
Set wd = Nothing
'Resume Next

[KFZLG]

错误处理程序（On Error Resume Next），VB调用WORD之前，应先判断WORD是否运行，如未运行，则使用CreateObject，否则用GetObject.你第一次调用时，可能WORD未运行，所以成功，先打开WORD一个文档，再运行程序，即可测试