Attachments, Очень нужна помощь!

Создание Word-документа
Set word = CreateObject("Word.Application") Создание объекта Worda
Call word.documents.add("") Создание нового документа по шаблону
Set worddoc = word.activedocument Активация объекта

...

worddoc.saveas(customername) сохранение документа-Worda с именем файла в переменной customername
word.visible = True Сделать видимым окно Worda

Создание документа Word/Excel
Sub Click(Source As Button)
Dim PartExtension As String
Dim AppName As String
Dim offApp As Variant
Dim offDoc As Variant
Dim AppType As Integer
Dim DocName As String

Const PartExtensionW = ".doc"                    WORD`ового файла
Const AppNameW = "Word.Application"
Const PartExtensionX = ".xls"                     Excel`евого файла
Const AppNameX = "Excel.Application"

Const PartName = "doc001"  имя файла
просто и тупо, сделай, как тебе надо :)
If Msgbox("Создать документ Word (Yes) / Excel (No)?", 4+32, "Создать") = 6 Then
AppType = 1
Else
AppType = 2
End If

Select Case AppType
Case 1
DocName = PartName & PartExtensionW
AppName = AppNameW
Case 2
DocName = PartName & PartExtensionX
AppName = AppNameX
End Select

open Word/Excel
Err = 0
On Error Resume Next
Set offApp = GetObject ("", AppName)
If Err Then
Set offApp = CreateObject (AppName)
End If
On Error Goto 0
If offApp Is Nothyng Then
Print "Не установлено приложение " & Strleft(AppName, ".")
Exit Sub
End If
Let offApp.Visible = True  делаем видимым

Select Case AppType  тут чуть отличается
Case 1
Set offDoc = offApp.Documents.Add("", False, 0, True)  открываем пустой
offDoc.activate
Case 2
Set offdoc = offApp.Workbooks.Add
End Select
Call offDoc.SaveAs(DocName)  сохраняем
End Sub

@Command( [EditGotoField]; имя_рт-поля );
@Command( [EditInsertFileAttachment]; имя_файла; "1");

Call offDoc.SaveAs(DocName)  сохраняем

Dim fname As String
fname = offdoc.FullName  полный путь к файлу docName

Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument

Dim RTitem As NotesRichTextItem
Dim eo As NotesEmbeddedObject
Const rtfldName ="Attach"

Set uidoc = ws.CurrentDocument  открытый в лотусе документ
If uidoc.EditMode Then
Call uidoc.refresh(True)
End If

Set doc = uidoc.Document

удалить прежнее рт-поле
If doc.HasItem(rtfldName) Then
Call doc.Removeitem(rtfldName)
Call doc.save(True, True)
End If
создать рт-поле с документом Word/Excel
Set rtitem = New NotesRichTextItem(doc, rtfldName)
If Not RTitem Is Nothyng Then
Set eo = RTitem.EmbedObject ( EMBED_ATTACHMENT, "", fname)

Call doc.Save( True, True )
doc.ReplaceItemValue "SaveOptions" , "0"

Закрыть Word/Excel
Call offDoc.Close
Call offApp.Quit
и попытаться удалить файл с диска
Err = 0
On Error Resume Next
Kill fname
On Error Goto 0
Call uidoc.Close  закрыть документ лотуса
End If