' Точка входа.

Dim LoginPoint As SBLogon.LoginPoint

' Приложение.

Dim DirectumApplication As sbrte.Application

' Параметры соединения с использованием кода системы.

ConnectionParams ="SystemCode=DIRECTUM"

' Получить приложение, используя точку входа.

Set LoginPoint = New SBLogon.LoginPoint

Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)

Dim EDocumentFactory As sbrte.IEDocumentFactory

Dim EDocument As sbrte.IEDocument

' ИД экспортируемого электронного документа.

EDocumentID = 147501

' Имя файла экспорта.

ExportFileName = "C:\Temp\Документ из системы DIRECTUM.doc"

Set EDocumentFactory = DirectumApplication.EDocumentFactory

Set EDocument = EDocumentFactory.GetObjectByID(EDocumentID)

' Экспортировать первую версию документа с блокировкой.

Call EDocument.Export(1, ExportFileName, True)

' Импортировать электронный документ в новую версию с разблокировкой.

Call EDocument.ImportFromFile(-1, "Новая версия", ExportFileName, True)

' Экспортировать первую версию электронного документа с блокировкой.

Set Version = EDocument.Versions.Values(0)

Version.Export(ExportFileName, True)

' Разблокировать версию.

Version.Unlock;