Kodlardaki

'------------- ŞABLONU OLUŞTURULUYOR-----------

    Şablon_Dosyası = "Tüccar_Tutanak_1."

'====================================================

With Tüccar_Tutanak_1

    .Class = "Word.Document"

    .Verb = acOLEVerbOpen

    .Visible = False

    .Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası ', Visible = False

    .Close



End With

kısmını

With Tüccar_Talep_Formu_1

    .Class = "Word.Document"

    .Verb = acOLEVerbOpen

    .Visible = False

    Dim WordApp As Object

    Set WordApp = .Object.Application

    WordApp.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası

    WordApp.Quit

    Set WordApp = Nothing

    .Close

End With

  olarak değiştirip dener misiniz? Word Apllication bir Object olarak tanımlanmış ve OLE üzerinden işlem yapıyorsunuz. Dolayısı ile comm nesnelerinin serbest bırakılıp temizlenmesi önemli wordü tamamen kapatmak gerekli task managerda arka planda işlem yapmaya devam etmemeli. Bu blokta deneyin istediğiniz sonucu alıyorsanız diğer bloklarada benzer işlemi uygulayın. Şayet bu şekilde de sonuç alamaz ve wordü arka planda kapatamazsanız End With'in altına

Shell "taskkill /F /IM WINWORD.EXE", vbHide

ekleyerek deneyebilirsiniz ancak burada dikkat etmeniz gereken wordü task managerdan sonlandırma işlemini kodla yapıyor olduğunuzdur ve dolayısı ile açık başka word dosyalarınız var ise onlarda kapatılır ve kayıt edilmemiş çalışmalarınız kaybolur.