---

Sub PasteExcelCellsAsFormattedPlainText()
    ' Вставка содержимого буфера (текст без форматирования)
    Selection.PasteSpecial DataType:=wdPasteText

    Dim rng As Range
    Set rng = Selection.Range   ' весь только что вставленный текст

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

    ' ---------- 2. Обработка каждого абзаца ----------
    Dim p As Paragraph
    For Each p In rng.Paragraphs
        ' Удалить интервалы после/до и задать одинарный межстрочный
        p.SpaceAfter = 0
        p.SpaceBefore = 0
        p.LineSpacingRule = wdLineSpaceSingle

        ' Первые буквы слов — заглавные, остальные — строчные
        p.Range.Text = StrConv(p.Range.Text, vbProperCase)
    Next p

    ' Снять выделение (опционально)
    Selection.Collapse Direction:=wdCollapseEnd
End Sub