---

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. Каждое слово — с заглавной буквы
    Selection.Range.Case = wdTitleWord

    ' 3. Очистка форматирования и применение единого стиля
    With Selection
        .ClearFormatting
        .Style = ActiveDocument.Styles(wdStyleNormal)
        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
        End With
    End With
End Sub