VB.net Word не закрывается

Question

Когда пользователь нажимает кнопку, он открывает документ Word. После того, как пользователь закроет документ, Word все еще работает в фоновом режиме (подтверждено диспетчером задач). Есть ли способ очистить Word из памяти?

Это то, что мой код Токи выглядеть следующим образом:

Private Sub UserDocumentationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserDocumentationToolStripMenuItem.Click 
     Dim appWord As New Word.Application 
     Dim docWord As New Word.Document 

     docWord = appWord.Documents.Open(Application.StartupPath & "\user_documentation1.docx",) 
     appWord.Visible = True 
     appWord.Activate() 

    End Sub 

Answer 1

Вы можете перемещать Dim appWord As New Word.Application вне подлодки, а затем вызвать appWord.Quit() из другого подразделам в более позднее время.

Answer 2

Необходимо правильно закрыть объект Com, после вызова .Quit вам понадобится класс Marshall. Проверьте Task Manager, и вы увидите, что он ушел. То же самое для Excel.

Marshal.FinalReleaseComObject(appWord) 

Answer 3

Попробуйте это.

Внешние блоки: метод

Private appWord As Word.Application 
Private docWord As Word.Document 

Внутри обработчика событий:

Private Sub UserDocumentationToolStripMenuItem_Click(sender As Object, e As EventArgs) _ 
Handles UserDocumentationToolStripMenuItem.Click 

    Me.appWord = New Word.Application 
    Me.docWord = New Word.Document 

    Me.docWord = Me.appWord.Documents.Open(Application.StartupPath & 
              "\user_documentation1.docx",) 
    Me.appWord.Visible = True 
    Me.appWord.Activate() 

End Sub 

В обработчике FormClosing события или где-нибудь еще:

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) _ 
Handles MyBase.FormClosing 

    Me.appWord.Quit() 

End Sub 

Answer 4

У меня была аналогичная проблема, и решение было в два раза. Во-первых, я использовал свой собственный эквивалент appWord.Quit() для завершения программы. Обратите внимание, что, если вы не хотите, чтобы конечный пользователь запрашивал, сохранять ли изменения, вам необходимо указать параметр для метода .Quit. Примерно так: appWord.Quit(Word.WdSaveOptions.wdDoNotSaveChanges).

Во-вторых, я нашел удобный Sub онлайн для полного выпуска любых объектов автоматизации Word или Excel и изменения его в соответствии с моими потребностями.

Попробуйте вызвать этот Sub после appWord.Quit(Word.WdSaveOptions.wdDoNotSaveChanges):

Public Sub releaseObject(ByVal obj As Object) 
    Try 
     Dim CheckIt As Integer 
     CheckIt = System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     While CheckIt > 0 
      CheckIt = System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     End While 
     obj = Nothing 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    Finally 
     GC.Collect() 
     GC.WaitForPendingFinalizers() 
    End Try 
End Sub 

Этот подраздел перебирает, чтобы убедиться, что все экземпляры и объекты полностью закрыты и удалены из памяти.

Надеюсь, что это поможет!