Как сохранить файл "C:\Temp\Temp.doc" в поле "Body".
%INCLUDE "C:\lotus\notes\data\A_TT3\wdConst.lss"
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
'Ссылка на документ
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set item =doc.GetFirstItem("podpis")
Dim emo As NotesEmbeddedObject
Set emo=doc.GetAttachment("C:\Temp\Temp.doc")
Set wdApp = CreateObject("Word.Application")
Dim spath As String
spath="C:\Temp\Temp.doc" 'куда положить временный файл
Call emo.ExtractFile(spath) 'выкладываем
'wdApp.Visible=True 'Скрываем отрытый WoRD
wdApp.Documents.Open (spath)
With wdApp.ActiveDocument.Sections(1)
Forall v In item.Values
If v<>"" Then
.Footers(wdHeaderFooterPrimary).Range.InsertParagraphAfter
.Footers(wdHeaderFooterPrimary).Range.InsertAfter v
End If
End Forall
End With