---

Sub ВставитьКакОчищенныйТекст()
    Dim rng As Range
    
    ' 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. Получаем диапазон только что вставленного текста
    Set rng = Selection.Range
    
    ' 3. Сбрасываем всё форматирование
    rng.ClearFormatting
    
    ' 4. Применяем стиль "Обычный" (сбрасывает стили абзацев)
    rng.Style = ActiveDocument.Styles(wdStyleNormal)
    
    ' 5. Шрифт Times New Roman, 11 pt
    With rng.Font
        .Name = "Times New Roman"
        .Size = 11
    End With
    
    ' 6. Параметры абзаца: нулевые интервалы, одинарный межстрочный
    With rng.ParagraphFormat
        .SpaceBefore = 0
        .SpaceAfter = 0
        .LineSpacingRule = wdLineSpaceSingle
        .LeftIndent = 0
        .RightIndent = 0
        .FirstLineIndent = 0
        .CharacterUnitFirstLineIndent = 0
    End With
    
    ' 7. Каждое слово — с заглавной буквы
    rng.Case = wdTitleWord
End Sub