---

Sub ВставитьСписокИзWordСНумерацией()
    ' ... (весь код от начала до заполнения ячеек без изменений) ...

    ' 4. Заполняем ячейки: номер в активный столбец, текст в соседний справа
    For i = 0 To numLines - 1
        lineText = linesArr(i)
        dotPos = InStr(lineText, ". ")
        If dotPos > 0 And IsNumeric(Left(lineText, dotPos - 1)) Then
            numPart = Left(lineText, dotPos + 1)
            textPart = Trim(Mid(lineText, dotPos + 2))
        Else
            numPart = ""
            textPart = lineText
        End If
        With ws.Cells(SavedRow + i, SavedCol)
            .Value = numPart
            .Font.Bold = False        ' <-- убираем жирный шрифт
        End With
        With ws.Cells(SavedRow + i, SavedCol + 1)
            .Value = textPart
            .Font.Bold = False        ' <-- убираем жирный шрифт
        End With
    Next i

    ' 5. Автоподбор высоты строк (только для новых строк)
    ws.Rows(SavedRow & ":" & SavedRow + numLines - 1).EntireRow.AutoFit

    ' 6. Никакого OnUndo — история остаётся нетронутой!
    Application.ScreenUpdating = True
End Sub