word 的调用的问题

Question

在vb中执行以下代码
Private Sub Command1_Click()
Dim Word1 As Word.Application
Dim Documents As Word.Documents
Set Word1 = CreateObject("Word.Application")
Set Documents = Word1.Documents
Word1.Visible = True
Documents.Open App.Path & "\yns1.doc"
With Selection.Find
    .ClearFormatting
    .Text = "林再泽"
    .Replacement.ClearFormatting
    .Replacement.Text = yname
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With
End Sub
再执行Private Sub Command2_Click()
Dim Word1 As Word.Application
Dim Documents As Word.Documents
Set Word1 = CreateObject("Word.Application")
Set Documents = Word1.Documents
Word1.Visible = True
Documents.Open App.Path & "\yns2.doc"
With Selection.Find
    .ClearFormatting
    .Text = "地址"
    .Replacement.ClearFormatting
    .Replacement.Text = ydz
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With
End Sub弹出对话框
实时错误462
远程服务器不存在或不能使用,请教如何修改。