2

Para cada Execução da função DeleteSel, um "WINWORD" fica aberto na memoria, mesmo com o comando Close e/ou Quit o mesmo não fecha.

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

Alguém teria alguma dica ?

0

3 Respostas 3

1

Utilize a opção abaixo:

objDoc.Quit

Ao invés de ".Close"

Antes do "Quit" salve o que for preciso salvar.

Edição 1

Exemplo

Sub abreWord()

Dim objDoc As Object

Set objDoc = CreateObject("Word.Application")

    objDoc.Visible = True
    objDoc.Activate

    objDoc.Quit

    Set objDoc = Nothing

End Sub

No caso acima o word é aberto e fechado, inclusive o processo winword.

Espero ter ajudado!

7
  • o Objeto WINWORD continua no Gerenciador do Windows ocupando memoria. Commented 24/01/2018 às 17:08
  • Ainda que vc coloque Set objDoc = Nothing? Qual versão do Office utiliza?
    – Evert
    Commented 24/01/2018 às 20:40
  • Sim, mesmo com Quit ou Close o objeto WINWORD fica no gerenciador de tafera. Office 2016. Commented 25/01/2018 às 11:32
  • Amigo, tente dar um quit no objBkm também, pois no código que vou atualizar na resposta o winword é fechado normalmente. Vou atualizar agora.
    – Evert
    Commented 25/01/2018 às 13:27
  • Se possível teste este exemplo e veja se está abrindo e fechando ai na sua máquina. Aqui tb estou no 2016 e funcionou.... estranho....
    – Evert
    Commented 25/01/2018 às 13:29
1

Encontrei uma solução, que ao menos Abre apenas 1 instancia do WINWORD no gerenciador de tarefas ou Utiliza a que já estiver aberta, já que a mesma não está fechando com o comando QUIT devido a utilização do Bookmarks (Provavelmente)

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
1
  • Amigo, caso a resposta de sua pergunta tenha sido atendida pela nossa resposta, marque como respondida para referência futura de outros usuários.
    – Evert
    Commented 26/01/2018 às 7:31
1

Sair e Definir o objeto do Word = Nothing

Você cria dois objDoc com Set objDoc. Depois no fim você fecha somente o último, enquanto o primeiro continua aberto.

Um programa VBA para fechar todos os arquivos de Word é o seguinte:

'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

Créditos: Robin Mackenzie

Matar a tarefa

Para fechar os processos no Gerenciador de Tarefas.

'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
2
  • 1
    Mesmo que o QUIT funciona-se, eu não poderia utilizar esse recurso, pois caso o usuário realmente esteja com o Word Aberto, iria fechar o trabalho do usuário. Commented 25/01/2018 às 11:36
  • 1
    Legal essa opção @danieltakeshi, valeu!!
    – Evert
    Commented 26/01/2018 às 7:34

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .