Как получить данные о формате и ориентации листа чертежа

[А8208]

Здравствуйте.
Подскажите, пожалуйста, как получить данные о ориентации и формате листа чертежа.
Пишу код в VBA.
Взял пример из SDK.
Работает до строки задания переменной standart значения.
Пишет standart = Nothing
Подскажите что в коде неверно.

Код Выделить Развернуть

Private Sub Command()
        Dim Kompas As Object
  If Kompas Is Nothing Then
   Set Kompas = CreateObject("KOMPAS.Application.5")
    If Not Kompas Is Nothing Then
      Kompas.Visible = True
    Dim ksDocument2D As Object
    Filename = "D:\5.cdw"
    Set ksDocument2D = Kompas.Document2D
      ksDocument2D.ksOpenDocument (Filename), False
    End If
  Dim doc As Object
  Set doc = Kompas.ActiveDocument2D
 
  Dim docPar As Kompas6API5.DocumentParam
  Set docPar = Kompas.GetParamStruct(ko_DocumentParam)
 
  Dim sheet As Kompas6API5.SheetPar         ' ????????? ksSheetPar
  Set sheet = docPar.GetLayoutParam         ' ????????? ?????????? ??????????


Dim standart As Kompas6API5.StandartSheet ' ????????? ksStandartSheet
Set standart = sheet.GetSheetParam()     ' ????????? ?????????? ???????????? ?????




 
  If Not docPar Is Nothing Then
    doc.ksGetObjParam reference, docPar, -1 '(? ??????? ???????? allparam)
          ' format = iStandartSheet
            Kompas.ksMessage "??? ?????: " & docPar.Filename
            Kompas.ksMessage "type = " & docPar.Type
            Kompas.ksMessage "???????????: " & docPar.Comment
            Kompas.ksMessage "?????: " & docPar.Author
            Kompas.ksMessage "?????: " & docPar.Regime
    doc.ksGetObjParam reference, standart, -1 '(? ??????? ???????? allparam)
            Kompas.ksMessage "???????????: " & standart.format
            End If
End If
End Sub