---

Sub CreateKontrolnayaRabota_Kravchenko()
    Dim doc As Document
    Dim t As Table
    Set doc = Documents.Add

    ' --- Базовое форматирование ---
    With doc.Styles(wdStyleNormal)
        .Font.Name = "Times New Roman"
        .Font.Size = 14
        .ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
        .ParagraphFormat.FirstLineIndent = CentimetersToPoints(1.25)
        .ParagraphFormat.SpaceAfter = 0
    End With

    With doc.PageSetup
        .LeftMargin = CentimetersToPoints(3)
        .RightMargin = CentimetersToPoints(1.5)
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
    End With

    ' --- Титульный лист ---
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
    Selection.Font.Bold = True
    Selection.TypeText "ГБПОУ «Пермский политехнический колледж имени Н.Г. Славянова»"
    Selection.TypeParagraph
    Selection.TypeParagraph
    
    Selection.Font.Size = 16
    Selection.TypeText "КОНТРОЛЬНАЯ РАБОТА"
    Selection.TypeParagraph
    Selection.Font.Size = 14
    Selection.TypeText "по дисциплине «Введение в специальность»"
    Selection.TypeParagraph
    Selection.TypeParagraph
    
    Selection.Font.Bold = False
    Selection.TypeText "Тема: Специальность 09.02.01 «Компьютерные системы и комплексы»"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph

    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.Font.Bold = False
    Selection.TypeText "Выполнил:"
    Selection.TypeParagraph
    Selection.TypeText "студент группы Кс-26/4к"
    Selection.TypeParagraph
    Selection.TypeText "Кравченко Виталий"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText "Проверил:"
    Selection.TypeParagraph
    Selection.TypeText "[ФИО преподавателя]"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText "Пермь, 2026"
    
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Содержание ---
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
    Selection.Font.Bold = True
    Selection.TypeText "СОДЕРЖАНИЕ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    
    Dim tocItems As Variant
    tocItems = Array( _
        "Введение … 3", _
        "Глава 1. Характеристика специальности и профессиональной деятельности … 4", _
        "    1.1. Область и объекты профессиональной деятельности … 4", _
        "    1.2. Виды профессиональной деятельности … 5", _
        "Глава 2. Компетенции и требования к специалисту … 6", _
        "    2.1. Профессиональные компетенции (ПК) по ФГОС … 6", _
        "    2.2. Общие компетенции (ОК) … 7", _
        "    2.3. Требования к знаниям и умениям … 8", _
        "Глава 3. Практические аспекты и примеры задач … 9", _
        "    3.1. Типовые рабочие задачи техника … 9", _
        "    3.2. Пример решения типовой задачи (кейс) … 10", _
        "Заключение … 11", _
        "Список источников … 12" _
    )
    
    Dim item As Variant
    For Each item In tocItems
        Selection.TypeText item
        Selection.TypeParagraph
    Next item
    
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Введение ---
    Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(1.25)
    Selection.Font.Bold = True
    Selection.TypeText "ВВЕДЕНИЕ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "[Текст введения: актуальность, цель, задачи, объект, предмет, методы.]"
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Глава 1 ---
    Selection.Font.Bold = True
    Selection.TypeText "ГЛАВА 1. ХАРАКТЕРИСТИКА СПЕЦИАЛЬНОСТИ И ПРОФЕССИОНАЛЬНОЙ ДЕЯТЕЛЬНОСТИ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "1.1. Область и объекты профессиональной деятельности"
    Selection.TypeParagraph
    Selection.TypeText "[Текст параграфа 1.1.]"
    Selection.TypeParagraph
    Selection.TypeText "1.2. Виды профессиональной деятельности"
    Selection.TypeParagraph
    Selection.TypeText "[Текст параграфа 1.2.]"
    Selection.TypeParagraph
    Selection.TypeText "Таблица 1 — Примеры видов деятельности, задач и инструментов"
    Selection.TypeParagraph

    Set t = doc.Tables.Add(Selection.Range, 4, 3)
    t.Cell(1, 1).Range.Text = "Вид деятельности"
    t.Cell(1, 2).Range.Text = "Примеры задач"
    t.Cell(1, 3).Range.Text = "Инструменты и оборудование"
    t.Cell(2, 1).Range.Text = "Диагностика ПК"
    t.Cell(2, 2).Range.Text = "Проверка POST, тестирование ОЗУ, дисков, БП"
    t.Cell(2, 3).Range.Text = "Мультиметр, POST-карта, MemTest, CrystalDiskInfo"
    t.Cell(3, 1).Range.Text = "Настройка ОС и драйверов"
    t.Cell(3, 2).Range.Text = "Установка Windows/Linux, обновление драйверов, настройка сети"
    t.Cell(3, 3).Range.Text = "DISM, PowerShell, утилиты производителей"
    t.Cell(4, 1).Range.Text = "Обслуживание сети"
    t.Cell(4, 2).Range.Text = "Настройка коммутатора, роутера, VLAN, диагностика кабеля"
    t.Cell(4, 3).Range.Text = "CLI Cisco/Huawei, Wireshark, кабельный тестер"
    t.Range.Font.Name = "Times New Roman"
    t.Range.Font.Size = 12
    t.Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)

    Selection.EndKey Unit:=wdStory
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Глава 2 ---
    Selection.Font.Bold = True
    Selection.TypeText "ГЛАВА 2. КОМПЕТЕНЦИИ И ТРЕБОВАНИЯ К СПЕЦИАЛИСТУ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "2.1. Профессиональные компетенции (ПК) по ФГОС"
    Selection.TypeParagraph
    Selection.TypeText "[Перечислить 4–6 ПК по ФГОС 09.02.01.]"
    Selection.TypeParagraph
    Selection.TypeText "2.2. Общие компетенции (ОК)"
    Selection.TypeParagraph
    Selection.TypeText "[Кратко раскрыть 3–4 ОК.]"
    Selection.TypeParagraph
    Selection.TypeText "2.3. Требования к знаниям и умениям"
    Selection.TypeParagraph
    Selection.TypeText "[Знания и умения по специальности.]"
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Глава 3 ---
    Selection.Font.Bold = True
    Selection.TypeText "ГЛАВА 3. ПРАКТИЧЕСКИЕ АСПЕКТЫ И ПРИМЕРЫ ЗАДАЧ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "3.1. Типовые рабочие задачи техника"
    Selection.TypeParagraph
    Selection.TypeText "[Перечень типовых задач.]"
    Selection.TypeParagraph
    Selection.TypeText "3.2. Пример решения типовой задачи (кейс)"
    Selection.TypeParagraph
    Selection.TypeText "[Кейс: в офисе из 10 рабочих мест не работает сеть на трёх ПК. Решение: ...]"
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Заключение ---
    Selection.Font.Bold = True
    Selection.TypeText "ЗАКЛЮЧЕНИЕ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "[Выводы по задачам.]"
    Selection.InsertBreak Type:=wdPageBreak

    ' --- Список источников ---
    Selection.Font.Bold = True
    Selection.TypeText "СПИСОК ИСТОЧНИКОВ"
    Selection.TypeParagraph
    Selection.Font.Bold = False
    Selection.TypeText "1. Федеральный государственный образовательный стандарт СПО по специальности 09.02.01 «Компьютерные системы и комплексы»."
    Selection.TypeParagraph
    Selection.TypeText "2. Таненбаум Э., Остин Т. Архитектура компьютера. — СПб.: Питер, 2023."
    Selection.TypeParagraph
    Selection.TypeText "3. Официальный сайт Intel: https://www.intel.ru"
    Selection.TypeParagraph
    Selection.TypeText "4. Официальный сайт AMD: https://www.amd.com"
    Selection.TypeParagraph
    Selection.TypeText "5. Официальная документация Cisco: https://www.cisco.com"
End Sub