---

Sub ВставитьКакОчищенныйТекст()
    ' 1. Вставка как неформатированный текст
    On Error Resume Next
    Selection.PasteSpecial DataType:=wdPasteText
    If Err.Number <> 0 Then
        MsgBox "Нет данных для вставки.", vbExclamation
        Exit Sub
    End If
    On Error GoTo 0

    ' 2. Применение единого форматирования к вставленному блоку
    With Selection
        ' Сброс всего прямого форматирования
        .ClearFormatting
        
        ' Принудительно назначаем стиль "Обычный" (сбрасывает стили заголовков, списков и т.д.)
        .Style = ActiveDocument.Styles(wdStyleNormal)
        
        ' Шрифт Times New Roman, 11 pt
        With .Font
            .Name = "Times New Roman"
            .Size = 11
        End With
        
        ' Параметры абзаца: нулевые отступы и интервалы
        With .ParagraphFormat
            .SpaceBefore = 0
            .SpaceAfter = 0
            .LineSpacingRule = wdLineSpaceSingle   ' одинарный межстрочный
            .LeftIndent = 0
            .RightIndent = 0
            .FirstLineIndent = 0
            .CharacterUnitFirstLineIndent = 0      ' отступ красной строки в 0
        End With
    End With
End Sub