---

Sub PasteFromExcelAndFormat()
    Dim para As Paragraph
    Dim rng As Range

    ' Вставка только текста
    Selection.PasteSpecial DataType:=wdPasteText
    If Selection.Type = wdSelectionIP Then Exit Sub

    For Each para In Selection.Paragraphs
        ' Стиль "Обычный" (Normal)
        para.Style = wdStyleNormal

        With para.ParagraphFormat
            .SpaceAfter = 0
            .SpaceBefore = 0
            .LineSpacingRule = wdLineSpaceSingle   ' одинарный межстрочный интервал
        End With

        With para.Range.Font
            .Name = "Times New Roman"
            .Size = 11
        End With

        ' Первая буква каждого слова заглавная, остальные строчные
        Set rng = para.Range
        rng.MoveEnd Unit:=wdCharacter, Count:=-1
        If rng.Characters.Count > 0 Then
            rng.Text = StrConv(rng.Text, vbProperCase)
        End If
    Next para

    Selection.Collapse Direction:=wdCollapseEnd
End Sub