Private Sub Кнопка60_Click()

strDOT = "договор.dotx"
Call OpenWordDoc
End Sub


Sub OpenWordDoc()

Dim app As Word.Application  'Приложение программы
Dim strDOC As String ' Имя документа
Dim ctl As Control ' Управляющие элементы в форме
Dim s As String ' Вспомогательная строка
Dim StrID As String 'Уникальный номер записи
Dim Str As String 'Вспомогательная переменная
Dim StrSQL As String 'запрос SQL
Dim rs As Recordset 'результаты выборки
Dim i As Integer
Dim StrCompID As String
Dim b As String
Dim a As String




    On Error GoTo 999
    
    ' Определяем имена шаблона и документа Word
    With Application.CurrentProject
        strDOT = .Path & "\" & strDOT
        strDOC = .Path & "\" & "СОХРАНИ ЭТО!!!.docx"
    End With
    
' Управление документом Word
    Set app = New Word.Application 'Новое приложение Word
    app.Visible = True 'Отображаем документ
    app.Documents.Add strDOT 'Добавляем шаблон



StrID = CCur(Forms("полная инф").Controls("ID").Value)

         StrSQL = "SELECT * FROM [Клиенты], [страховые_компании] WHERE (Клиенты.Код)=" & _
         StrID & " ;"
Set rs = CurrentDb.OpenRecordset(StrSQL)
 

' MsgBox StrSQL
 
 With app.ActiveDocument
      On Error Resume Next
      For i = 1 To rs.Fields.Count
          .Bookmarks.Item(rs.Fields(i).Name).Range.Text = Me(rs.Fields(i).Name) 'rs.Fields(i)
          Str = rs.Fields(i).Name & "1"
          .Bookmarks.Item(Str).Range.Text = Me(rs.Fields(i).Name)
           Str = rs.Fields(i).Name & "2"
          .Bookmarks.Item(Str).Range.Text = Me(rs.Fields(i).Name)
          Str = rs.Fields(i).Name & "3"
          .Bookmarks.Item(Str).Range.Text = Me(rs.Fields(i).Name)
          Str = rs.Fields(i).Name & "4"
          .Bookmarks.Item(Str).Range.Text = Me(rs.Fields(i).Name)
'      Beep
      Next

 

StrSQL = "SELECT ([Клиенты].страховая_компания) FROM [Клиенты] WHERE (Клиенты.Код) = " & StrID & " ;"
Set rs = CurrentDb.OpenRecordset(StrSQL)
 On Error Resume Next
    For i = 0 To rs.Fields.Count
        StrCompID = Me(rs.Fields(i).Name)
    Next
'rs.Close
    
StrSQL = "SELECT * FROM [страховые_компании] WHERE (страховые_компании.Код) = " _
            & StrCompID & " ;"

' MsgBox StrSQL




Set rs = CurrentDb.OpenRecordset(StrSQL)
 On Error Resume Next
    For i = 1 To rs.Fields.Count
          
          .Bookmarks.Item(rs.Fields(i).Name).Range.Text = rs.Fields(i).Value
          
         
'      Beep
      Next
      
      
      
rs.Close
End With
      
'        With app.ActiveDocument  'Выбираем активный документ
'       On Error Resume Next ' Отключаем ошибки
'        ' Просматриваем все элементы формы, если
'        ' такой закладки нет, то очищаем поток от ошибки
'        For Each ctl In Me.Controls
'            If ctl.ControlType = acTextBox Then
'                s = ctl.Name ' Определяем название элемента
'                .Bookmarks.Item(s).Range.Text = Me(s) 'Устанавливаем текст
'                Str = s & "1"
'                .Bookmarks.Item(Str).Range.Text = Me(s)
'                Str = s & "2"
'                .Bookmarks.Item(Str).Range.Text = Me(s)
'
'
'                Err.Clear ' Очищаем поток от ошибки при отсутствии элемента
'            End If
'        Next ctl
        
        
        
    

 '       .SaveAs strDOC ' Сохраняем файл
        On Error GoTo 999 ' Включаем обработку ошибки
  '  End With
    
   

    ' app.Quit 'Закрываем приложение
    Exit Sub







999:
    MsgBox Err.Description  'Ошибка
    Err.Clear
    app.Quit


End Sub