Сообщение:
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