Sub AddComment()
  
  Const wdNoProtection = -1
  Dim ClipboardText As String
    
  On Error GoTo exit_
  
  With ActiveInspector.CurrentItem
    If .BodyFormat = olFormatPlain Then
      .BodyFormat = olFormatHTML
    End If
  End With

  ' Allow mail editing, add comment to the selection
  With ActiveInspector.WordEditor
    If .ProtectionType <> wdNoProtection Then .UnProtect
    
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
         .GetFromClipboard
         ActiveInspector.WordEditor.Windows(1).Selection.InsertAfter .GetText
    End With
    
    With ActiveInspector.WordEditor.Windows(1).Selection
        .Font.Color = wdColorBlue
        .Font.Italic = wdToggle
    End With
  End With

exit_:
  
  ' Show reason of error
  If Err Then MsgBox Err.Description, vbCritical, "Не могу вставить комментарий! Ошибка: " & Err.Number

End Sub