(09/10/2018, 22:00)ozanakkaya yazdı: Merhaba, bu işlem için word şablonu oluşturmalı ve şablonda ilgili yerlere yer imi eklemelisiniz.
Aslı için oluşturulan örnek şablon ektedir.
Aslı.dotx isimli şablonu uygulama ile aynı dizine ekledikten sonra butonun tıklandığında olayına
Dim GSorulacakTarih, GGecerliBelgeYolu, GSablonYolu As String
Dim WordApp, oWdoc As Object
GSablonYolu = CurrentProject.Path & "\" & Me.yazisi & ".dotx"
GGecerliBelgeYolu = CurrentProject.Path & "\" & Replace(Me.dosyano, "/", "-") & " dosya numaralı evrakın " & Me.yazisi & ".docx"
GSorulacakTarih = InputBox("Sorulacak Tarihi Yazınız", "Tarih Bilgisi")
Set WordApp = CreateObject(Class:="Word.Application")
WordApp.Visible = True
AppActivate "Microsoft Word"
Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)
WordApp.ActiveDocument.Bookmarks("sayisi").Select
WordApp.Selection.Text = Me.sayisi
WordApp.ActiveDocument.Bookmarks("isim").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("evraktarihi").Select
WordApp.Selection.Text = Me.Metin90
WordApp.ActiveDocument.Bookmarks("dosyano").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("dosyano2").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("isim2").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("sorulacaktarih").Select
WordApp.Selection.Text = GSorulacakTarih
oWdoc.SaveAs2 GGecerliBelgeYolu
kodu eklemeniz gerekli.
Merhaba dediğiniz gibi ekteki word dosyasını Access ile aynı klasöre attım. Dediğiniz kodu butonun tıklandığında kısmına ekledim ama hata veriyor. Hatanın resmi