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

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 Templates As sbrte.IEDocument

Dim TemplatesDataSet As IDataSet

' Получить список шаблонов электронных документов.

Set EDocumentFactory = DirectumApplication.EDocumentFactory

Set Templates = EDocumentFactory.Templates

Set TemplatesDataSet = Templates.DataSet

' Наименование шаблона электронного документа.

TemplateName = "Шаблон Word"

' Код вида электронного документа.

KindCode ="Г000013"

' Найти шаблон по имени.

Do While Not TemplatesDataSet.EOF And Templates.Name <> TemplateName

  TemplatesDataSet.Next

Loop

' Если шаблон был найден, то создадим электронный документ.

If Not TemplatesDataSet.EOF Then

  TemplateCode = TemplatesDataSet.Requisites("Код").AsString

  Set EDocument = EDocumentFactory.CreateNewFromTemplate( _

    "ШАД", KindCode, TemplateCode)

  EDocument.DataSet.Requisites("ISBEDocName").AsString = "Документ из шаблона"

  EDocument.DataSet.ApplyUpdates

End If