Kodu aşağıdaki ile değiştirerek deneyiniz

Dim GSorulacakTarih, GGecerliBelgeYolu, GSablonYolu As String

Dim WordApp As Word.Application

Dim oWdoc As Word.Document



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



WordApp.Activate

WordApp.WindowState = wdWindowStateMaximize



              

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