'====================================================================
' AJPapps - Word Insert plain text
' Линда Кайе 2016. Посвящается Ариэль
' 
' Этот макрос выполняет простую задачу: вставляет текст без 
' форматирования. Если в буфере обмена будет картинка, то макрос 
' вставит само изображение без связанной информации, которую может 
' добавить, например, броузер.
' 
' Макрос добавляется в любой модуль шаблона Normal.dot. Удобнее 
' всего на него повесить горячую клавишу Ctrl+Shift+Ins (если 
' привыкли вставлять через Shift+Ins).
' 
' • 16.09.2016
'   Первый публичный релиз.
' 
'====================================================================
' 1. Программа и исходный код распространяются бесплатно.
' 2. Вы имеете право распространять их на тех же условиях.
' 3. Вы не имеете права использовать имя автора после модификации 
'    исходного кода.
' 4. При этом желательно указывать ссылку на автора оригинальной 
'    версии исходного кода.
' 5. Вы не имеете права на платное распространение исходного кода, 
'    а также программных модулей, содержащих данный исходный код.
' 6. Программа и исходный код распространяются как есть. Автор не 
'    несёт ответственности за любые трагедии или несчастные случаи, 
'    вызванные использованием программы и исходного кода.
' 7. Для любого пункта данного соглашения может быть сделано 
'    исключение с разрешения автора программы.
' 8. По любым вопросам, связанным с данной программой, обращайтесь 
'    по адресу lindaoneesama@gmail.com
' 
' Загружено с http://purl.oclc.org/Linda_Kaioh/Homepage/
'====================================================================
Option Explicit

'====================================================================
Sub InsertPlainText()
  On Error Resume Next
  
  Selection.PasteSpecial , , wdInLine, , wdPasteText
  
  If Err.Number = 5342 Then
    Err.Clear
    Selection.PasteSpecial , , wdInLine, , wdPasteBitmap
  End If
  
  If Err.Number <> 0 Then
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  End If
  
  'Selection.PasteAndFormat wdPasteDefault ' wdFormatPlainText
  'If Err Then MsgBox Err.Description, vbCritical
End Sub