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