求教 守柔 老师，有关VBA。

警长

'以下的代码复制到ThisDocument中，运行PathSub。

Dim WAP As New Word.Application
Dim Wdc As New Word.Document
Dim Wrf As New Word.Document

Dim TxtStr As String

Private Sub PathSub()
        TxtStr = "c:\test.doc"
        Call OpenWord
End Sub

Private Sub OpenWord()
        Set Wdc = WAP.Documents.Open(TxtStr)
           WAP.Quit
End Sub

连续两次运行该程序，会报错：远程服务器机器不存在或不可用（错误 462）

我发现原因是“WAP.Quit”，退出后再运行就会提示错误。

求教如何解决？

守柔

建议使用CreateObject函数引用WORD对象。

我不太明白，你既然是在WORD程序中运行（THISDOCUMENT）中，何必再创建WORD对象。

当然，错误的原因是在关闭文档时，提示有另一个用户正在调用NORMAL.DOT(相当于NEW Normal.dot)，无法退出程序，再次退出时，无法正确创建NEW WORD.Application，故造成错误。

我想，你的程序原来的设计目的肯定不是这样的，能大致罗列一下吗？我觉得用CreateObject更合适一些。

警长

果然是高人！

我原来的设计目的的确不是这样的。我这个程序原本是写在VB6.0中，在我程序中要打开word和excel。用同样的方法创建Excel没有问题，但是到Word就不行了。

因为我想这里是office的论坛，怕Vb的问题不回答就把这段代码放到了word的VBA中了。

另外，您能给我一个CreateObject的模版吗，我没用过。谢谢！

守柔

请参：

Dim WAP As Word.Application
Dim Wdc As Word.Document
Dim TxtStr As String

Private Sub OpenWord()
    Dim TF As Boolean
    On Error Resume Next
    Set WAP = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set WAP = CreateObject("Word.Application")
        WAP.Visible = True
        TF = True
    End If
    Set Wdc = WAP.Documents.Open(TxtStr)
    Wdc.Close False
    If TF = True Then
        WAP.Quit
    End If
End Sub
Private Sub Command1_Click()
    TxtStr = "F:\test.doc"
    Call OpenWord
End Sub
请在VB工程中引用MS WORD。

警长

成功了，谢谢守柔老师。