---

Sub PasteFromExcel_ProperCase()
    ' Вставка неформатированного текста из буфера обмена
    Selection.PasteSpecial Link:=False, _
                          DataType:=wdPasteText, _
                          Placement:=wdInLine, _
                          DisplayAsIcon:=False
    
    ' Преобразование регистра: Каждое Слово С Заглавной
    Selection.Case = wdTitleWord
    
    ' Применяем шрифт, стиль и интервалы
    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