Skip to main content

AccessTr.neT


Worde Aktarmada Sorun

Worde Aktarmada Sorun

Çözüldü #1
iyi günler Arkadaşlar;

kodu yazdım ancak birinci turu attıktan sonra sorun veriyor. Benim böyle 300-400 sayfa civarında veri oluşturmam gerekiyor. Nasıl çözüm bulabilirim?
.rar worde işleme.rar (Dosya Boyutu: 41,66 KB | İndirme Sayısı: 12)
Cevapla
#2
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
Cevapla
#3
Çok teşekkür ederim. Bunların hepsini aynı anda yazdırma gibi bir makro ekleme şansım var mı?
Cevapla
#4
Tablodaki kayıtları sırayla worde aktarıyor. Hepsini aynı anda aktaramazsın. Kayıtlar döngüye girmek zorunda.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da