---

Sub PasteAsPlainText()
    ' Вставка только текста из буфера обмена
    On Error Resume Next
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText

    If Err.Number <> 0 Then
        MsgBox "Не удалось вставить. Проверьте, скопированы ли ячейки из Excel.", vbExclamation, "Ошибка вставки"
    Else
        ' Форматируем вставленный текст
        With Selection
            ' Шрифт: Times New Roman, 11 пт
            .Font.Name = "Times New Roman"
            .Font.Size = 11
            ' Каждое слово с заглавной
            .Range.Case = wdTitleWord

            ' Убираем лишние интервалы
            With .ParagraphFormat
                .SpaceAfter = 0            ' интервал после = 0
                .SpaceBefore = 0           ' интервал до = 0
                .LineSpacingRule = wdLineSpaceSingle   ' одинарный межстрочный
                .FirstLineIndent = CentimetersToPoints(0)  ' убрать отступ первой строки
            End With
        End With
    End If
    On Error GoTo 0
End Sub