[johny77]

Добрый день, я пытался создать свойства, но в результате выпадает в ошибку. Смысл я поймать не могу. Может кто поможет?

static void Job245(Args _args)
{
    ComExcelDocument_RU     excel;
    COM                     comDocument, comProperties;
    ComVariant              comVar;
    ;
    excel = new ComExcelDocument_RU();
    excel.newFile();
    
    comDocument   = excel.getComDocument();
    comProperties = comDocument.CustomDocumentProperties();
    if (comProperties)
    {
        comProperties.Add("Запрос", false, 5, "Значение запроса", comVar);
    }  
}

за основу брался код на VBA

PHP код:

        ThisWorkbook.CustomDocumentProperties.Add _
        Name:=szVersion, _
        LinkToContent:=False, _
        Type:=msoPropertyTypeString, _
        Value:="Какое то значение" + szVersion 


или код на Pascal

PHP код:

uses 
  Office97; {or Office2000, OfficeXP, Office_TLB} 
var 
  VDoc, PropName, DocName: OleVariant; 
  VDoc := Word.ActiveDocument; 
  { ... } 
{ Set a document property } 
PropName := 'MyOpinionOfThisDocument'; 
VDoc.CustomDocumentProperties.Add(PropName, False, msoPropertyTypeString, 
  'Utter drivel', EmptyParam); 
{ Read a document property } 
Caption := VDoc.CustomDocumentProperties[PropName].Value; 
{ ... } 


Спасибо.