---

Option Explicit

Sub CreateRepairForm()

    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Application.DisplayAlerts = False

    On Error Resume Next
    Worksheets("Стр1").Delete
    Worksheets("Стр2").Delete
    On Error GoTo 0

    Application.DisplayAlerts = True

    Set ws1 = Worksheets.Add
    ws1.Name = "Стр1"

    Set ws2 = Worksheets.Add
    ws2.Name = "Стр2"

    Call CreatePage1(ws1)
    Call CreatePage2(ws2)

    MsgBox "Бланк создан.", vbInformation

End Sub

Private Sub CreatePage1(ws As Worksheet)

    With ws

        .Cells.Font.Name = "Times New Roman"
        .Cells.Font.Size = 10

        .Columns("A:L").ColumnWidth = 14

        .PageSetup.Orientation = xlPortrait
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1

        .Range("A1:D4").Merge
        .Range("A1").Value = "АВТО ДЕТАЛЬ ЦЕХ"
        .Range("A1").Font.Bold = True
        .Range("A1").Font.Size = 18
        .Range("A1").HorizontalAlignment = xlCenter
        .Range("A1").VerticalAlignment = xlCenter

        .Range("H1:L4").Merge
        .Range("H1").Value = _
        "Приложение 1 к Заказ-наряду № __________ от 17.06.2026" & vbCrLf & _
        vbCrLf & _
        "ФИО ______________________" & vbCrLf & _
        "ИНН ______________________" & vbCrLf & _
        "Адрес ____________________" & vbCrLf & _
        "Телефон __________________"

        .Range("A6:L6").Merge
        .Range("A6").Value = "АКТ ПРИЕМКИ - ПЕРЕДАЧИ ДЕТАЛИ В РЕМОНТ"
        .Range("A6").Font.Bold = True
        .Range("A6").HorizontalAlignment = xlCenter

        .Range("A8:F18").Borders.LineStyle = xlContinuous
        .Range("G8:L18").Borders.LineStyle = xlContinuous

        .Range("A8:F8").Merge
        .Range("A8").Value = "ЗАКАЗЧИК"
        .Range("A8").Font.Bold = True

        .Range("G8:L8").Merge
        .Range("G8").Value = "ДЕТАЛИ"
        .Range("G8").Font.Bold = True

        .Range("A9").Value = "Заказчик:"
        .Range("A11").Value = "Адрес:"
        .Range("A13").Value = "Телефон:"

        .Range("G9").Value = "Гос. номер:"
        .Range("G10").Value = "VIN:"
        .Range("G11").Value = "Наименование:"
        .Range("G12").Value = "Год выпуска:"
        .Range("G13").Value = "Двигатель №:"
        .Range("G14").Value = "Пробег:"
        .Range("G15").Value = "Дата приема:"
        .Range("G16").Value = "Номер пломбы:"

        .Range("A20:L24").Borders.LineStyle = xlContinuous
        .Range("A20:L20").Merge

        .Range("A20").Value = "Заявка клиента на работы"
        .Range("A20").Font.Bold = True
        .Range("A20").HorizontalAlignment = xlCenter

        .Range("A21:L24").Merge
        .Range("A21").Value = _
        "Мойка, опрессовка, высверливание свечи накала (свечу привезли), фрезеровка плоскости"

        .Range("A26:L45").Borders.LineStyle = xlContinuous
        .Range("A26:L26").Merge

        .Range("A26").Value = "Правила оказания услуг"
        .Range("A26").Font.Bold = True
        .Range("A26").HorizontalAlignment = xlCenter

        .Range("A27:L45").Merge
        .Range("A27").WrapText = True

        .Range("A27").Value = _
        "В случае согласия Заказчика на восстановительный ремонт деталей Заказчик несет полную ответственность за работоспособность детали после ремонта." & vbCrLf & vbCrLf & _
        "Восстановление деталей выполняется по согласованию с Заказчиком." & vbCrLf & vbCrLf & _
        "Гарантия распространяется только на выполненные работы."

    End With

End Sub

Private Sub CreatePage2(ws As Worksheet)

    With ws

        .Cells.Font.Name = "Times New Roman"
        .Cells.Font.Size = 10

        .Columns("A:L").ColumnWidth = 14

        .PageSetup.Orientation = xlPortrait
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1

        .Range("A2:L12").Borders.LineStyle = xlContinuous

        .Range("A2:L2").Merge
        .Range("A2").Value = "Дополнительное соглашение"
        .Range("A2").Font.Bold = True
        .Range("A2").HorizontalAlignment = xlCenter

        .Range("A3:L12").Merge
        .Range("A3").WrapText = True

        .Range("A3").Value = _
        "Перед проведением работ обязательна технологическая мойка." & vbCrLf & _
        "Заказчик дает согласие на обработку и хранение персональных данных."

        .Range("A14:L18").Borders.LineStyle = xlContinuous

        .Range("A14:L14").Merge
        .Range("A14").Value = "Без моего согласия разрешаю"

        .Range("A15:L15").Merge
        .Range("A15").Value = "Провести работы на сумму не более __________________"

        .Range("A17:L17").Merge
        .Range("A17").Value = "Приобрести запчасти на сумму не более ______________"

        .Range("A21:F30").Borders.LineStyle = xlContinuous
        .Range("G21:L30").Borders.LineStyle = xlContinuous

        .Range("A21:F21").Merge
        .Range("A21").Value = "Деталь(и) принял (сервисный консультант)"

        .Range("G21:L21").Merge
        .Range("G21").Value = "Деталь(и) сдал (сервисный консультант)"

        .Range("A28").Value = "Подпись"
        .Range("A29").Value = "Дата"

        .Range("G28").Value = "Подпись"
        .Range("G29").Value = "Дата"

        .Range("A33:L40").Borders.LineStyle = xlContinuous

        .Range("A33:L33").Merge
        .Range("A33").Value = "Деталь(и) принял (Заказчик)"

        .Range("A38").Value = "Подпись"
        .Range("H38").Value = "Дата"

        .Range("A43:L47").Merge

        .Range("A43").Value = _
        "О готовности заказа уточняйте по телефону: +7 (922) 660-81-46" & vbCrLf & _
        "Telegram/Viber/WhatsApp" & vbCrLf & _
        "Режим работы: ПН-ПТ 8:00-17:00"

    End With

End Sub