Merhaba,

Word açtırma ve aktarma sonrası açık word belgesini kapatma işlemini döngü içerisine eklemeyi deneyiniz

Public Sub ExportNamesToWord()

    Dim wApp As Word.Application

    Dim wDoc As Word.Document

    Dim rs As DAO.Recordset

    

    

    Set rs = CurrentDb.OpenRecordset("deneme")

    

    If Not rs.EOF Then rs.MoveFirst

    

    Do Until rs.EOF

    

    Set wApp = New Word.Application

    Set wDoc = wApp.Documents.Open(CurrentProject.Path & "\Tutanak.docx")

    

        wDoc.Bookmarks("CikisTarih").Range.Text = Nz(rs!CikisTarih, "")

        wDoc.Bookmarks("TesisAdi").Range.Text = Nz(rs!TesisAdi, "")

        wDoc.Bookmarks("Plaka").Range.Text = Nz(rs!Plaka, "")

        wDoc.Bookmarks("Tonaj").Range.Text = Nz(rs!Tonaj, "")

        wDoc.SaveAs2 CurrentProject.Path & "\" & rs!ID & "_Tutanak.docx"

        

        wDoc.Bookmarks("CikisTarih").Range.Delete wdCharacter, Len(Nz(rs!CikisTarih, ""))

        wDoc.Bookmarks("TesisAdi").Range.Delete wdCharacter, Len(Nz(rs!TesisAdi, ""))

        wDoc.Bookmarks("Plaka").Range.Delete wdCharacter, Len(Nz(rs!Plaka, ""))

        wDoc.Bookmarks("Tonaj").Range.Delete wdCharacter, Len(Nz(rs!Tonaj, ""))

        

    wDoc.Close False

    wApp.Quit

    

    Set wDoc = Nothing

    Set wApp = Nothing

        

    rs.MoveNext

    Loop

    

    

    Set rs = Nothing

End Sub