AUTOMACAO WORD - COMO MATAR PROCESSO?

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            Dim QueOption As Byte
            Dim DivID As String
            Dim Aux As Byte
            Dim objWord As New Word.Application
            Dim objDoc As Word.Document
            
            Screen.MousePointer = vbHourglass
            Me.WindowState = vbMinimized
            QueOption = 0
            If Form1.Option2(1).Value = True Then QueOption = 1
            If QueOption = 0 Then
                Set objDoc = objWord.Documents.Add(ondetah & "\Modelos\GUIA.dot")
            Else
                Set objDoc = objWord.Documents.Add(ondetah & "\Modelos\GUIA2.dot")
            End If
            DivID = Split("data#do#ao#func#ult", "#")
            For Aux = 0 To 4
                For qqu = 1 To 3 + QueOption
                    objDoc.FormFields("guia" & qqu & DivID(Aux)).Range = Campo(Aux).Text
                Next
            Next
            For Aux = 1 To 14
                For qqu = 1 To 3 + QueOption
                    objDoc.FormFields("guia" & qqu & "seq" & Aux).Range = Seq(Aux - 1).Text
                    objDoc.FormFields("guia" & qqu & "inter" & Aux).Range = Interes(Aux - 1).Text
                    objDoc.FormFields("guia" & qqu & "ass" & Aux).Range = Assunto(Aux - 1).Text
                    objDoc.FormFields("guia" & qqu & "proc" & Aux).Range = Proc(Aux - 1).Text
                Next
            Next
            objDoc.PrintOut
            objDoc.Close False
            objWord.Quit
            Screen.MousePointer = vbNormal
            Set objDoc = Nothing
            Set objWord = Nothing
        Case 1
            Unload Me
    End Select
End Sub