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.