---

Sub ВставитьКакТекстБезИнтервалов()
    ' 1. Вставка из буфера как неформатированный текст
    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

    ' 2. Удаление интервалов и отступов у ВСЕХ абзацев вставленного блока
    With Selection.ParagraphFormat
        .SpaceBefore = 0          ' интервал перед абзацем
        .SpaceAfter = 0           ' интервал после абзаца
        .LineSpacingRule = wdLineSpaceSingle   ' одинарный межстрочный
        .LeftIndent = 0           ' отступ слева
        .RightIndent = 0          ' отступ справа
        .FirstLineIndent = 0      ' отступ красной строки
        ' Принудительно применяем стиль "Обычный" (без дополнительных интервалов)
        .Style = ActiveDocument.Styles("Обычный")
    End With

    ' 3. Снимаем выделение (курсор в конец вставленного текста)
    Selection.Collapse Direction:=wdCollapseEnd
End Sub