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

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