---

Sub PasteFromExcel_ProperCase()
    ' Вставка неформатированного текста из буфера обмена
    Selection.PasteSpecial Link:=False, _
                          DataType:=wdPasteText, _
                          Placement:=wdInLine, _
                          DisplayAsIcon:=False
    
    ' Надёжное преобразование регистра: Каждое Слово С Заглавной
    ' (равносильно «Как в предложениях» для каждого слова)
    Selection.Range.Case = wdTitleWord
    
    ' Применяем шрифт, стиль и интервалы
    With Selection.Range
        .Style = wdStyleNormal
        .Font.Name = "Times New Roman"
        .Font.Size = 11
        With .ParagraphFormat
            .SpaceAfter = 0
            .SpaceBefore = 0
            .LineSpacingRule = wdLineSpaceSingle
        End With
    End With
End Sub