---

Sub PasteFromExcelClean()
    ' Назначение: Вставка из буфера как текст, очистка форматирования,
    ' Times New Roman 11, каждое слово с заглавной буквы.
    On Error GoTo ErrorHandler

    ' 1. Вставить содержимое буфера обмена как неформатированный текст
    Selection.PasteSpecial DataType:=wdPasteText

    ' 2. Обработать вставленный фрагмент (он остаётся выделенным)
    With Selection
        ' Применить базовый стиль "Обычный" (Normal)
        .Style = ActiveDocument.Styles(wdStyleNormal)

        ' Настройки абзаца: убрать интервалы после и перед, одинарный межстрочный
        With .ParagraphFormat
            .SpaceAfter = 0
            .SpaceBefore = 0
            .LineSpacingRule = wdLineSpaceSingle
        End With

        ' Шрифт Times New Roman, 11 пт
        With .Font
            .Name = "Times New Roman"
            .Size = 11
        End With

        ' Преобразовать регистр: первые буквы слов — заглавные, остальные — строчные
        .Range.Case = wdTitleWord
    End With

    Exit Sub

ErrorHandler:
    MsgBox "Ошибка: " & Err.Description, vbCritical, "Вставка из Excel"
End Sub