'Önce değişkenleri string olarak belirleyelim. Bu isimler örnektir.
Dim AdUnv, Noter, Yevmiye, VekMet, Tarih As String
'Değişkenlerin nerede olduklarını belirtelim. Bunlar örnektir. Siz kendi formunuza göre uyarlayabilirsiniz.
'Ana formda ise şu şekilde
AdUnv = me.ADUNVAN
'Eğer alt form'dan çağırıyorsanız şu şekilde
Noter = Forms.ANAFORMADI.ALTFORMKONTROLADI.Form.KONTROLKAYNAĞIADI
 
'Word için instance açalım
Dim Wrd As New Word.Application
Set Wrd = CreateObject("Word.Application")
'Word dokümanının yerini belirtelim.Burada Word dosyasının mdb/accdb dosyası ile aynı klasörde olduğu varsayıldı.
Dim MergeDoc As String
MergeDoc = Application.CurrentProject.Path
MergeDoc = MergeDoc & " \DOSYAADINIZ.dotx"
'Şablon dokümanı açalım ve görünür yapalım.
Wrd.Documents.Add MergeDoc
Wrd.Visible = True
'Word şablonundaki yerimlerini atayalım.
With Wrd.ActiveDocument.Bookmarks
.Item("AdUnvan").Range.Text = AdUnv
.Item(“Noter”).Range.Text = Noter
End With
'Eğer otomatik çıktı almak istiyorsanız aşağıdaki kodun başlarındaki kesme işaretini kaldırarak aktif hale getirebilirisiz.
'Wrd.ActiveDocument.PrintOut
'İşimiz bittiğine göre Word dokümanını kayıt etmeden kapatalım.
Wrd.ActiveDocument.Close wdDoNotSaveChanges
Wrd.Quit
End Sub