Исходный код

Option Explicit
Call AddFile(ThisObject)


'==============================================================================
'Добавить к объекту файл из буфера обмена
'==============================================================================
Sub AddFile(Obj)
    Dim f
    On Error Resume Next
    Set f =    ThisApplication.Utility.AddFileFromClipboard(Obj)
    
    If (Err<>0) Or (f Is Nothing) Then
        MsgBox "Ошибка загрузки файла из буфера обмена."
    Else
        MsgBox f.FileName & " загружен " & f.UploadTime
    End If
End Sub
'==============================================================================