Dim X As New Word.Application
        X.Visible = True
        X.Documents.Add()
        With X.ActiveWindow.Selection
            .Font.Color = Word.WdColor.wdColorBlack
            .Font.Name = "Times New Roman"
            .Font.Bold = False
            .Font.Size = 9
            .ParagraphFormat.Alignment = 2
            .InsertAfter("Договор подряда")
            .InsertParagraphAfter()
            .EndOf()
            Mes = ComboBox2.SelectedIndex + 1
            If Mes.LongCount = "1" Then Mes = 0 & Mes
            s = VodYear
            s1 = Mes
            s = "1." + s1 + "." + s
            T1 = s
            T2 = DateAdd("m", 1, s)
            dni = DateDiff("d", T1, T2)
            X.ActiveDocument.Tables.Add(X.Selection.Range, 4, 2, Word.WdDefaultTableBehavior.wdWord9TableBehavior, Word.WdAutoFitBehavior.wdAutoFitContent)
            X.ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.InsertAfter("номер")
            X.ActiveDocument.Tables(1).Cell(Row:=1, Column:=2).Range.InsertAfter(Dogovor)
            X.ActiveDocument.Tables(1).Cell(Row:=2, Column:=1).Range.InsertAfter("дата")
            X.ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range.InsertAfter(Dogovor1)
            X.ActiveDocument.Tables(1).Cell(Row:=3, Column:=1).Range.InsertAfter("с")
            X.ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range.InsertAfter("01." & Mes & "." & VodYear & " г.")
            X.ActiveDocument.Tables(1).Cell(Row:=4, Column:=1).Range.InsertAfter("по")
            X.ActiveDocument.Tables(1).Cell(Row:=4, Column:=2).Range.InsertAfter(dni & "." & Mes & "." & VodYear & " г.")
            X.Selection.MoveDown(Word.WdUnits.wdLine, Count:=4)
        End With