Bom dia,

venho pesquisando, mas não estou achando a solução para meu problema.

Dim Word As Word.application
    Dim DOC As Word.Document
    
    Set Word = CreateObject("Word.Application")
    Word.Visible = False
    
    Set DOC = Word.Documents.Open("a")
    
    With DOC
        '*Dados locador
        .application.Selection.Find.Text = "#Observação"
        .application.Selection.Find.Execute
        .application.Selection.Range = Sheets("Dados").Cells(i, 34).Value
        
      
        
        If Dir("a") <> "" Then
          Kill "a"
        End If
       .SaveAs ("a")
       .Close
    End With
    
    'WORD.Quit
    Set DOC = Nothing
    Set Word = Nothing

Hoje estou utilizando esse código para criar um arquivo word e esta funcionando. O meu problema que como isso é feito em loop o pc começa a travar porque o processo "word" fica em aberto pelo sistema a cada execução. Como eu conseguiria encerrar o arquivo por completo e depois iniciar um novo?

Grato pela ajuda