oDoc.Bookmarks.Item("ДоговорНомер").Range.Text = Me.Договор№

Public Sub ContractWord(ParID As Long)
'Печать договора
On Error GoTo Err_Handler

    Dim ParFile As String
    ParFile = Dir("C:\Договор.dot")
    
    If ParFile = "Договор.dot" Then

        Dim dbs As DAO.Database
        Set dbs = CurrentDb
    
        Dim strBookmark As String
    
        Dim rst As DAO.Recordset
        Dim qdf As DAO.QueryDef
        
        Set qdf = dbs.QueryDefs("qry1") 'Word Contract - данные для договора
        qdf.Parameters("ParID") = ParID
        
        Set rst = qdf.OpenRecordset(dbOpenForwardOnly)
     
        If rst.BOF = False And rst.EOF = False Then
        
            DoCmd.Hourglass True
            
            Dim objWord As New Word.Application
            
            Set objWord = CreateObject("Word.Application")
            
            objWord.Documents.Add Template:="C:\Договор.dot", _
                NewTemplate:=False, DocumentType:= 0 
            
'            On Error Resume Next ' это нужно чтобы программа не спотыкалась на отсутствующих закладках
            
            
            strBookmark = "НомерДоговора"
            objWord.Selection.GoTo What:=wdGoToBookmark, name:=strBookmark
            objWord.Selection.Bookmarks(strBookmark).Range = Nz(rst("ContractNo"), "")
            
            strBookmark = "ДатаДоговора"
            objWord.Selection.GoTo What:=wdGoToBookmark, name:=strBookmark
            objWord.Selection.Bookmarks(strBookmark).Range = Nz(rst("ContractDate"), "")
            
            strBookmark = "ДатаДогПрописью"
            objWord.Selection.GoTo What:=wdGoToBookmark, name:=strBookmark
            objWord.Selection.Bookmarks(strBookmark).Range = Nz(Format(rst("ContractDate"), "dd mmmm yyyyг."), "")
            
            
            strBookmark = "Клиент"
            objWord.Selection.GoTo What:=wdGoToBookmark, name:=strBookmark
            objWord.Selection.Bookmarks(strBookmark).Range = Nz(rst("Client"), "")
            
            

            objWord.Selection.HomeKey Unit:=wdStory 'наверх документа
            objWord.ActiveWindow.ActivePane.VerticalPercentScrolled =  0  'вверх верт. полосы прокрутки


            objWord.Visible = True
                    
            'передать управление в Word
            objWord.Activate
    
            
            DoCmd.Hourglass False
        
        Else
        
            MsgBox "Нет данных для вывода в Word.", vbExclamation, "Сообщение"
        
        End If
    Else
        MsgBox "Шаблон C:\Договор.dot отсутствует.", vbExclamation, "Сообщение"
        Exit Sub
    End If



Exit_Handle:

    DoCmd.Hourglass False
    
    If Not rst Is Nothing Then
        rst.Close
        Set rst = Nothing
    End If
    If Not qdf Is Nothing Then
        qdf.Close
        Set qdf = Nothing
    End If
    
    
    If Not dbs Is Nothing Then
        dbs.Close
        Set dbs = Nothing
    End If

    Exit Sub

Err_Handler:

    Select Case Err.Number
    Case  91  'ворд запущен, но нет документа
        objWord.Documents.Add
        Resume Next
    Case  429 
        Set objWord = CreateObject("Word.Application")
        objWord.Documents.Add
        Resume Next
    Case  4248 
        objWord.Documents.Add
        Resume
    Case  5101  'закладка не существует
        MsgBox Err.Description & vbCr & "Создайте в шаблоне документа Word закладку: " & strBookmark
        Resume Exit_Handle
    
    Case  5151  'шаблон отсутствует
        MsgBox "Шаблон C:\Договор.dot отсутствует", vbCritical
        
        objWord.Visible = True
        
        'передать управление в Word
        objWord.Activate
        
        Resume Exit_Handle
    
    
    Case Else
        MsgBox Err.Description
    End Select
    DoCmd.Hourglass False

End Sub