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

Dim LoginPoint As SBLogon.LoginPoint

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

Dim DirectumApplication As sbrte.Application

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

ConnectionParams ="SystemCode=DIRECTUM"

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

Set LoginPoint = New SBLogon.LoginPoint

Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)

Dim EDocument As sbrte.IEDocument

Dim EDocumentVersionDialog As sbrte.IEDocumentVersionListDialog

Dim NewVersion As sbrte.IEDocumentVersion

' Получить электронный документ.

EDocumentID = 147501

Set EDocument = DirectumApplication.EDocumentFactory.GetObjectByID(EDocumentID)

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

Set EDocumentVersionDialog = _

  DirectumApplication.ServiceFactory.GetEDocumentVersionListDialog(EDocument)

Set NewVersion = EDocumentVersionDialog.Select

VersionNumber = NewVersion.Number

' Создать версию на основе выбранной с заданным примечанием.

NewVersion.Clone("Версия создана на основе версии " & Str(VersionNumber))