Dim WordApp As Word.Application
 
   Dim strTemplateLocation As String
 
    strTemplateLocation = CurrentProject.Path & "\PROGRAM.dot"
 
   On Error Resume Next
 
  Set WordApp = CreateObject("Word.Application")
   If Err.Number <> 0 Then
     Set WordApp = CreateObject("Word.Application")
   End If
 
 
 
On Error GoTo ErrHandler
 WordApp.Visible = True
   WordApp.WindowState = wdWindowStateMaximize
   WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False
   With WordApp.Selection
 
 
 
If Onay172 = -1 Then
    DoCmd.OpenQuery "TERZAGHİKARE"
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
 
 WordApp.ActiveDocument.Bookmarks("TERZAGHİKARE").Range.Paste
 WordApp.ActiveDocument.Range.Tables(1).Rows(1).Delete
 WordApp.ActiveDocument.Range.Tables(1).AutoFitBehavior (wdAutoFitWindow) 'bu kod
'Tabloyu sayfa genişleniğine göre otomatik ayarlar...
 Else
  WordApp.ActiveDocument.Range.Tables(1).Rows(1).Delete
End If
 
 End With
 
 
 
 
 
    DoEvents
   WordApp.Activate
   Set WordApp = Nothing
   Exit Sub
 
ErrHandler:
Set WordApp = Nothing