[VBA] Chiusura applicazione Word lenta

[valeriobb87]

Ho il seguente codice VBA che lancio da Microsoft Access:

Function WordConv(fileInput As String, fileOutput As String, tipo_oggetto As Long)
    Dim wrd As Word.Application
    Dim wrd_doc As Word.Document
    
    Set wrd = CreateObject("word.application")
    Set wrd_doc = wrd.Documents.Open(fileInput)
    wrd_doc.SaveAs fileOutput, tipo_oggetto
    
    wrd_doc.Close
    wrd.Quit
    Set wrd = Nothing

End Function

L'esecuzione è lentissima, in modalità step by step il codice si ferma per circa 10 secondi su "wrd.Quit".
Idee in merito? Grazie.