通过 vb6 重新打开 MS 文档时出错

Question

我正在做一些 VB6 - MS WORD 应用程序..，这是我

dim WordObj As Word.Application
Dim objWord As Word.Document

Set WordObj = new Word.Application
Set objWord = WordObj.Documents.Open(FileName:=App.Path & "\PN.doc")


With objWord.Bookmarks
   .Item("NAME").Range.Text = name.Text
   .Item("ADDRESS").Range.Text = add.Text
   .Item("ID").Range.Text = id.Text
   .Item("PHONE").Range.Text = phone.Text
   .Item("FAX").Range.Text = fax.Text
End With

ActiveDocument.SaveAs (App.Path & "\" & name.text & "-PN.Doc")
ActiveDocument.Application.Quit

WordObj.Quit False

Set WordObj = Nothing
Set objWord = Nothing

第一次打开文件 PN.doc 并将其另存为 [name]-PN.doc 后的代码。效果很好。如果我重新打开它并重新保存它。出现错误，并显示

 The remote sever machine does not exist or is unavailable

当我尝试在 Word 应用程序中打开 PN.doc 时，会弹出错误并显示

the document has caused a serious error the last time it was opened. Would you like  to continue opening it?

我正在使用 Visual Basic6 和 MS Office 2010

tnx..，

Answer 1

ActiveDocument.Application.Quit

删除此行。您正在关闭 Word 两次。