Public Function Contract()
Dim WD As Object
    Set WD = CreateObject("Word.Application")
    WD.Documents.Open FileName:=CurrentProject.Path & "\Контракт.dotx"
    WD.Visible = True
    WD.Application.WindowState = 1
    WD.Activate
    WD.ActiveDocument.Bookmarks("Number").Range.text = Nz(Forms!Контракты!Номер_контракта, "")
    WD.ActiveDocument.Bookmarks("Data").Range.text = Nz(Forms!Контракты!Дата_контракта, "")
    WD.ActiveDocument.Bookmarks("Summ").Range.text = Nz(Format(Forms!Контракты!Сумма_контракта, " ######0.00р."))
    WD.ActiveDocument.Bookmarks("Name1").Range.text = Nz(Forms!Контракты!подформаКлиенты.Form!ФИО, "")
    WD.ActiveDocument.Bookmarks("Name2").Range.text = Nz(Forms!Контракты!подформаКлиенты.Form!ФИО, "")
    WD.ActiveDocument.Bookmarks("Phone").Range.text = Nz(Forms!Контракты!подформаКлиенты.Form!Телефон, "")
    WD.ActiveDocument.Bookmarks("Addr1").Range.text = Nz(Forms!Контракты!подформаКлиенты.Form!Адрес, "")
    WD.ActiveDocument.Bookmarks("Addr2").Range.text = Nz(Forms!Контракты!подформаКлиенты.Form!Адрес, "")



    Dim rst As Recordset
    Dim strSQL As String
    
    strSQL ="select " & vbcrlf & _
            " qMain.n as nL," & vbcrlf & _
            " sum(nPayL) as nSumPayL," & vbcrlf & _
            " qMain.nR as nR," & vbcrlf & _
            " sum(Платеж) as nSumPayR" & vbcrlf & _
            "from" & vbcrlf & _
            " (select n, n + qHalf.nHalf as nR, Платеж as nPayL" & vbcrlf & _
            "  from ((SELECT " & vbcrlf & _
            "   d1.id + d2.id*10 + d3.id*100 + 1 as n" & vbcrlf & _
            "  from " & vbcrlf & _
            "   digits d1, digits d2, digits d3" & vbcrlf & _
            "  )d inner join (select round(max(Номер_недели)/2,0) as nHalf from Платежи where Код_контракта = %contract%) qHalf on d.n <= qHalf.nHalf)" & vbcrlf & _
            "  left join " & vbcrlf & _
            "    (select Номер_недели, Платеж from  Платежи where Код_контракта = %contract%) as tPayL on tPayL.Номер_недели = d.n " & vbcrlf & _
            " ) qMain " & vbcrlf & _
            "left join " & vbcrlf & _
            "  (select Номер_недели, Платеж from  Платежи where Код_контракта = %contract%) as tPayL on tPayL.Номер_недели = qMain.nR" & vbcrlf & _
            "group by n, nr;" 
          
   
    Set rst = New Recordset
    rst.Open strSQL, CurrentProject.Connection
    
    
    With CreateTableFromRecordset(objWord.ActiveDocument.Bookmarks("Details").Range, rst, True)
        
        ' Apply formatting
        .AutoFormat wdTableFormatProfessional
        .AutoFitBehavior wdAutoFitContent
        
        ' Fix up paragraph alignment
        .Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Columns(1).Select
        objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        objWord.Selection.MoveDown
    End With
    
    WD.ActiveDocument.SaveAs FileName:=CurrentProject.Path & "\" & "Контракт" & "_" & [Forms]![Контракты]![Номер_контракта] & ".docx"
End Function