how to close Word opened by VBA

Question

how to close Word opened by VBA

Navigation

#1 by (1 votes)
#2 by (1 votes)
#3 by (1 votes)

2

For each Execution of the DeleteSel function, a "WINWORD" is opened in memory, even with the Close command and / or Quit it does not close.

Sub DeleteSel(msg As Outlook.MailItem)
Dim objDoc As Object
Dim objBkm As Object

Set objDoc = CreateObject("Word.Application")

objDoc.Visible = True
objDoc.Activate

On Error Resume Next
Set objDoc = msg.GetInspector.WordEditor
Set objBkm = objDoc.Bookmarks("_MailAutoSig")

If Not objBkm Is Nothing Then
    objBkm.Select
    objDoc.Windows(1).Selection.Delete
End If

objDoc.Close
objBkm.Close
Set objBkm = Nothing
Set objDoc = Nothing
End Sub

Would anyone have any tips?

visual-basic-6 vba

asked by anonymous 24.01.2018 / 12:49

3 answers

Guards vs. functions with pattern matching How to put this type of hover?

score 1 · Answer 1

Use the option below:

objDoc.Quit

Instead of ".Close"

Before "Quit" save what you need to save.

Issue 1

Example

Sub abreWord()

Dim objDoc As Object

Set objDoc = CreateObject("Word.Application")

    objDoc.Visible = True
    objDoc.Activate

    objDoc.Quit

    Set objDoc = Nothing

End Sub

In the above case the word is opened and closed, including the winword process.

I hope I have helped!

score 1 · Answer 2

I found a solution that at least only opens 1 instance of WINWORD in the task manager or uses the one that is already open, since it is not closing with the QUIT command due to the use of Bookmarks (Probably)

Sub DeleteSel(msg As Outlook.MailItem)
    Dim objDoc As Object
    Dim objBkm As Object

    On Error Resume Next
    Set objDoc = GetObject(, "Word.Application")

    If objDoc Is Nothing Then
        Set objDoc = CreateObject("Word.Application")
    End If

    On Error Resume Next
    Set objDoc = msg.GetInspector.WordEditor
    Set objBkm = objDoc.Bookmarks("_MailAutoSig")

    If Not objBkm Is Nothing Then
        objBkm.Select
        objDoc.Windows(1).Selection.Delete
    End If

    objBkm.Quit
    objDoc.Quit
    Set objBkm = Nothing
    Set objDoc = Nothing
End Sub

score 1 · Answer 3

Exit and Set Word Object = Nothing

You create two objDoc with Set objDoc . Then at the end you close only the last while the first one remains open.

A VBA program to close all Word files is as follows:

'https://stackoverflow.com/a/41100852/7690982
Option Explicit

Sub FecharDocWord()

    Dim objWord As Object

    Do
        On Error Resume Next
        Set objWord = GetObject(, "Word.Application")
        If Not objWord Is Nothing Then
            objWord.Quit
            Set objWord = Nothing
        End If
    Loop Until objWord Is Nothing

End Sub

Credits: Robin Mackenzie

Kill the task

To close the processes in the Task Manager.

'http://vbadud.blogspot.com.br/2009/04/how-to-kill-word-process-using-vba.html
Sub Kill_Word()

Dim sKillWord As String 

sKillWord = "TASKKILL /F /IM Winword.exe" 

Shell sKillWord, vbHide 

End Sub
Read more at http://vbadud.blogspot.com/2009/04/how-to-kill-word-process-using-vba.html#yWeSjbJsIeyDBDDv.99