---

Sub ВставитьТекстОчиститьИОформить()
    ' 1. Вставка из буфера как текст
    On Error Resume Next
    Selection.PasteSpecial Link:=False, _
                           DataType:=wdPasteText, _
                           Placement:=wdInLine, _
                           DisplayAsIcon:=False
    If Err.Number <> 0 Then
        MsgBox "Не удалось вставить текст. Проверьте, скопированы ли данные."
        Exit Sub
    End If
    On Error GoTo 0

    ' 2. Полная очистка форматирования символов и абзацев
    Selection.ClearFormatting
    ' Дополнительно сбрасываем параметры абзаца на случай скрытых отступов
    Selection.ParagraphFormat.Reset

    ' 3. Принудительное обнуление интервалов и отступов
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceAfter = 0
        .LineSpacingRule = wdLineSpaceSingle
        .FirstLineIndent = 0
        .LeftIndent = 0
        .RightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
    End With

    ' 4. Назначение шрифта Times New Roman, 11 пт
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 11
    End With
End Sub