Загрузка данных

Sub ВставитьТолькоекст()
    ' Вставка из буфера обмена с сохранением только текста
    On Error Resume Next
    Selection.PasteSpecial Link:=False, _
                           DataType:=wdPasteText, _
                           Placement:=wdInLine, _
                           DisplayAsIcon:=False
    If Err.Number <> 0 Then
        MsgBox "Не удалось вставить текст. Проверьте, скопированы ли данные."
    End If
    On Error GoTo 0
End Sub