Помогите получить формат и кратность листа текстового документа

[SDV]

Уважаемые ассы программирования прикладных библиотек под КОМПАС!
Помогите получить формат и кратность листа текстового документа!!!
Delphi 7, Automation, КОМПАС v.8+.
В чертежах в цикле перебираю все листы документа из из каждого штампа вытаскиваю содержимое ячейки №32, в которой хранится формат и кратность в виде строки "А2х5".
В штампе текстового документа (*.kdw) ячейки c №32 не обнаружил, хотя формат и кратность отображаются правильно.
Имеется ли возможность получить эти атрибуты другим путем, кроме как вытскванием из ячейки штампа.
Заранее благодарен за ответ, желательно с "кусочком" кода.

[yarikv]

получение формата и кратности чертежа

iDoc2D:=ksDocument2D(iKompas.ActiveDocument2D);
iDocPar:=ksDocumentParam(iKompas.GetParamStruct(ko_DocumentParam));
iDoc2D.ksGetObjParam(iDoc2D.reference, iDocPar, ALLPARAM);
iSheetPar:=ksSheetPar(iDocPar.GetLayoutParam);
iStandartSheet:=ksStandartSheet(iSheetPar.GetSheetParam);
format:=iStandartSheet.format;
kratnost:=iStandartSheet.multiply;

получение формата и кратности текстового документа

iDocTxt:=ksDocumentTxt(iKompas.ActiveDocumentTxt);
iTextDocumentParam:=ksTextDocumentParam(iKompas.GetParamStruct(ko_TextDocumentParam));
iDocTxt.ksGetObjParam(iDocTxt.reference, iTextDocumentParam, ALLPARAM);
iStandartSheet:=ksStandartSheet(iTextDocumentParam.GetSheetParam);
format:=iStandartSheet.format;
kratnost:=iStandartSheet.multiply;

[333]

Для текстового документа нужно брать ksTextDocumentParam

[sdvv]

Огромное спасибо!
Буду пробовать.
SDV (забіл пароль )