---

Sub PasteAsPlainText()
    On Error Resume Next
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText

    If Err.Number <> 0 Then
        MsgBox "Не удалось вставить. Проверьте, скопированы ли ячейки из Excel.", vbExclamation, "Ошибка вставки"
        Exit Sub
    End If
    On Error GoTo 0

    ' Применяем стиль "Обычный" (Normal), чтобы избежать чужих стилей
    Selection.Style = wdStyleNormal

    ' Теперь принудительно настраиваем всё
    With Selection
        ' Шрифт
        .Font.Name = "Times New Roman"
        .Font.Size = 11
        ' Регистр
        .Range.Case = wdTitleWord

        ' Абзац: убираем всё лишнее
        With .ParagraphFormat
            .SpaceAfter = 0
            .SpaceBefore = 0
            .LineSpacingRule = wdLineSpaceSingle
            .FirstLineIndent = CentimetersToPoints(0)
            ' Сброс других возможных отступов
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
        End With
    End With
End Sub