ошибка при повторном открытии документа ms через vb6 - PullRequest
Новая
       21

ошибка при повторном открытии документа ms через vb6

0 голосов
/ 11 июля 2011

Я делаю НЕКОТОРЫЕ 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 и сохраните его как [имя] -PN.doc.это работает отлично.если я открою его снова и сохраню.ошибка возникла и говорит 

 The remote sever machine does not exist or is unavailable

, когда я пытаюсь открыть PN.doc в текстовом приложении, ошибка появляется и говорит 

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

im, используя Visual Basic6и MS Office 2010

tnx ..,

1 Ответ

1 голос
/ 11 июля 2011

ActiveDocument.Application.Quit

Удалить эту строку. Вы закрываете Слово дважды.

...