Dim wrd As Object
    Dim mBook As Object
    Set wrd = CreateObject("WORD.Application")
    Set mBook = wrd.Documents.open(App.Path & "\shablons\Договор1.doc")
    With mBook
        .Variables("dogNumber").Delete
        .Variables.Add("dogNumber").Value = Me.Text2.Text
        .Variables("dogDate").Delete
        .Variables.Add("dogDate").Value = Me.Text3.Text
        .Variables("FIO").Delete
        .Variables.Add("FIO").Value = Me.Text4.Text
        .Variables("dogSumm").Delete
        If Me.Combo1.ListIndex = - 1  Then
            Me.Combo1.ListIndex =  0 
        End If
        .Variables.Add("dogSumm").Value = Me.Text1.Text & " " & Me.Combo1.Text & " (" & СуммаПрописью(CCur(Me.Text1.Text), Me.Combo1.Text) & ")"
        
        .Variables("PasportSerial").Delete
        .Variables.Add("PasportSerial").Value = Me.Text4.Text
        
        
        .Fields.Update
        .PrintPreview
    End With
    wrd.Caption = "Договор купли-продажи"
    wrd.Visible = True
    Set mBook = Nothing
    Set wrd = Nothing