---

Sub ВставитьКакТекстБезИнтервалов()
    On Error Resume Next
    Selection.PasteSpecial DataType:=wdPasteText
    If Err.Number <> 0 Then
        MsgBox "Нет данных для вставки или ошибка буфера обмена.", vbExclamation
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0

    ' Сначала применяем базовый стиль, затем переопределяем все интервалы
    With Selection.ParagraphFormat
        .Style = ActiveDocument.Styles("Обычный")   ' можно заменить на "Без интервала"
        ' Принудительно сбрасываем всё прямым форматированием
        .SpaceBefore = 0
        .SpaceAfter = 0
        .LineSpacingRule = wdLineSpaceSingle
        .LeftIndent = 0
        .RightIndent = 0
        .FirstLineIndent = 0
        ' Дополнительно убираем интервал между абзацами одного стиля (если включено)
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
    End With

    Selection.Collapse Direction:=wdCollapseEnd
End Sub