---

Sub PasteFromExcel_Format()
    ' Вставка как «только текст»
    Selection.PasteSpecial Link:=False, _
                          DataType:=wdPasteText, _
                          Placement:=wdInLine, _
                          DisplayAsIcon:=False
    
    ' Преобразование регистра: каждое слово с заглавной буквы
    Selection.Text = StrConv(Selection.Text, vbProperCase)
    
    ' Применение форматирования
    With Selection
        .Style = wdStyleNormal                ' сброс стиля на «Обычный»
        .Font.Name = "Times New Roman"
        .Font.Size = 11
        With .ParagraphFormat
            .SpaceAfter = 0                   ' убрать интервал после
            .SpaceBefore = 0                  ' убрать интервал перед
            .LineSpacingRule = wdLineSpaceSingle   ' одинарный межстрочный (при желании)
        End With
    End With
End Sub