---

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