Из лотуса в ворд

            Set formdoc=GetPrintFormByAlias ("Word")
If formdoc Is Nothyng Then
Print "doc for report is Nothyng !"
Exit Sub
End If

Set rtitem=formdoc.GetfirstItem("PrintFormBody")
Set object=rtitem.EmbeddedObjects(0)
Print "Инициализация " & object.Class & " ..."

Set worddoc=object.Activate(False)

Set word=worddoc.Application


v=Evaluate(|@Unique+".doc"|)
Path=word.Path+"\"+Cstr(v(0))
Call worddoc.SaveAs(path)

Call word.Application.documents.Open(path)

Kill Path

worddoc.FormFields(1).result = "!!!!!!!!!!!!!!!!!!!!!!"

worddoc.Application.Visible = True

Sub OpenExcel( FilePath )
Print "Відкриття Excel..."
Set exApp = CreateObject("Excel.Application")
If exApp Is Nothyng Then Messagebox "Не встановленний Excel!!!", 0 + 16 , "Друк"
exApp.Visible = False  видно или нет
Call exApp.Workbooks.Add( FilePath )
Set exWb = exApp.ActiveWorkBook
Set Sh = exWb.Sheets(1)
End Sub

    Set TemplateDoc = db.GetProfileDocument("($BlankTemplate)")
If TemplateDoc Is Nothyng Then
Messagebox "Профильный документ не найден", MB_OK + MB_ICONSTOP, "ERROR!"
Exit Sub
End If

Set rtitem = TemplateDoc.GetFirstItem("Document")
If rtitem Is Nothyng Then
Messagebox "Шаблон не найден, проверьте настроики шаблона", MB_OK, "Внимание"
Exit Sub
End If

path = "путь к Вашему файлу(обычно Temp папка)"

Set TemplateObject = rtitem.EmbeddedObjects(0)
Call TemplateObject.ExtractFile (path & "\document.doc")

Создание Word-документа

Dim wordObject As Variant

Set wordObject = CreateObject("Word.Application") Создание объекта Worda
Call wordObject.documents.add(path & "\document.doc") открытие документа
Set WordDoc = wordObject.activedocument Активация объекта
WordObject.Visible = False Сделать видимым окно Worda
Set Word = WordDoc.Application