Sub ConvertDoc()
    Const rowsOne = 25&
    Const rowsStep = 29&
    Dim n&, DocExcelMaxRow&
    '    ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона)
    '    FileName = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "NewDoc" & Get_Time & РасширениеСоздаваемыхФайлов)

    '    DocExcelMaxColomn = Cells.SpecialCells(xlLastCell).Column
    DocExcelMaxRow = 153    'Cells(Rows.Count, "A").End(xlUp).Row

    Dim WA As Object, WD As Object
    '    Set WA = CreateObject("Word.Application")    ' без подключения библиотеки Word
    Dim Table1 As Object
    Set WA = Application    ' без подключения библиотеки Word

    '    Set WD = WA.Documents.Add(ПутьШаблона)
    Set WD = WA.ActiveDocument
    WD.PageSetup.TopMargin = Application.CentimetersToPoints(3.7)    'отступ сверху
    WD.PageSetup.LeftMargin = Application.CentimetersToPoints(2.2)    'отступ слева

    '           Set Table1 = WD.Tables.Add(WD.Range(Start:=0, End:=0), 24, 9)  'рабочая
    Set Table1 = WD.Tables.Add(WD.Range(Start:=0, End:=0), DocExcelMaxRow, 9)  'рабочая

    With Table1
        .Borders.OutsideLineStyle = 1  'Работает
        .Borders.InsideLineStyle = 1   'Работает
        .Rows.Height = Application.CentimetersToPoints(0.8)
        .Columns(1).Width = Application.CentimetersToPoints(2)    '1-й столбец
        .Columns(2).Width = Application.CentimetersToPoints(13)    '2-й столбец
        .Columns(3).Width = Application.CentimetersToPoints(6)    '3-й столбец
        .Columns(4).Width = Application.CentimetersToPoints(3.5)    '4-й столбец
        .Columns(5).Width = Application.CentimetersToPoints(4.5)    '5-й столбец
        .Columns(6).Width = Application.CentimetersToPoints(2)    '6-й столбец
        .Columns(7).Width = Application.CentimetersToPoints(2)    '7-й столбец
        .Columns(8).Width = Application.CentimetersToPoints(2.5)    '8-й столбец
        .Columns(9).Width = Application.CentimetersToPoints(4)    '9-й столбец

        n = rowsOne
        Do While n < DocExcelMaxRow - 1
            .Cell(n, 1).Select
            Selection.ParagraphFormat.PageBreakBefore = wdToggle
            n = n + rowsStep
            DoEvents
        Loop

        .Cell(1, 2) = "nnn"
        .Cell(1, 3) = "55ggg"
    End With

    '            WD.SaveAs FileName
    '
    '    WD.Close False    ' False - без сохранения
    '    WA.Quit False
    '    MsgBox "Выгружено в word."

End Sub