On Error GoTo Hata
 
    Dim objWord As Word.Application
 
    Set objWord = CreateObject("Word.Application")
 
    With objWord
        'Word dosyasını görünür yapalım.
        .Visible = True
 
        'Dosyamızın konumu
        .Documents.Add (Me.Application.CurrentProject.Path & "\Dokuman.dotx")
 
        'Şimdi wordde belirlediğimizin her bir yer imi için işlemimizi yapalım...
        'Ben wordde 3 tane yer imi belirledim.
        'Bunlar SiteAdi,Icerik ve Yazar...
        .ActiveDocument.Bookmarks("SiteAdi").Select
        .Selection.Text = Me.SiteAdi
        .ActiveDocument.Bookmarks("Icerik").Select
        .Selection.Text = Me.Icerik
        .ActiveDocument.Bookmarks("Yazar").Select
        .Selection.Text = Me.Yazar
    End With
 
'Alttaki kodda bulunan tırnağı kaldırırsak word dosyası direk yazıcıya gönderilir.
 
'  objWord.ActiveDocument.PrintOut Background:=False
 
'Normal şartlarda belirlenen yer imlerinin silinmemesi için dosya buradan değişiklikler
'kaydedilmeden çıkılması gerekir. Fakat Word dosyasını inceyebelimeniz için ben 
'kapatmıyorum.
 
'Siz kullanacağınız zaman aşağıdaki kodu aktif hale getirmeyi unutmatın!!!
 
 
 '   objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
 
 
'Altaki kod ile word dosyasını kapatıyoruz... Sonucu görmeniz için kapattırmıyorum 
'    objWord.Quit
    Set objWord = Nothing
    Exit Sub
 
Hata:
'Eğer yer imine aktarilacak veri yoksa yer imi silinir...
    If Err.Number = 94 Then
        objWord.Selection.Text = ""
        Resume Next
    End If
    Exit Sub