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 & "\Yazi1.docx")
 
        'Parafsız evrak İMLERİ
        .ActiveDocument.Bookmarks("Evrsayısı").Select
        .Selection.Text = Me.Subesayisi
        .ActiveDocument.Bookmarks("Tarıh").Select
 
        'Paraflı evrak yol izahı
        .Documents.Add (Me.Application.CurrentProject.Path & "\Yazi2.docx")
         'Paraflı evrak imleri...
        .ActiveDocument.Bookmarks("Evrsayısı").Select
        .Selection.Text = Me.Subesayisi
        .ActiveDocument.Bookmarks("AltUnvan").Select
        .Selection.Text = Me.AltUnvan
        .ActiveDocument.Bookmarks("Dagıtım").Select
        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 <img src="http://www.access-sql.com/images/smilies/trz2/smile.gif" style="vertical-align: middle;" border="0" alt="Smile" title="Smile" />
     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

Sub vv()
On Error GoTo Hata
    Dim objWord As Word.Application, Sayac As Long
For Sayac = 1 To 2
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Visible = True
          .Documents.Add (Application.CurrentProject.Path & "\Yazi" & Sayac & ".docx")
          .ActiveDocument.Bookmarks("Evrsayisi").Select
          .Selection.Text = Me.Subesayisi
         If Sayac = 1 Then
          .ActiveDocument.Bookmarks("Tarih").Select
          .Selection.Text = Me.TARIHI
         ElseIf Sayac = 2 Then
          .ActiveDocument.Bookmarks("AltUnvan").Select
          .Selection.Text = Me.AltUnvan
          .ActiveDocument.Bookmarks("Dagitim").Select
          .Selection.Text = Me.DAGITIM
         End If
          .PrintOut Background:=False
       End With
   objWord.Documents.Close
Next Sayac
Application.Quit
 Exit Sub
Hata:
'Eger yer imine aktarilacak veri yoksa yer imi silinir...
    If Err.Number = 94 Then
        objWord.Selection.Text = ""
        Resume Next
    End If
    Exit Sub
End Sub