Добавление свойств в документ (MS Office )

[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; 
{ ... } 


Спасибо.

[Владимир Максимов]

Вот эту тему почитай

Вызов Item() для коллекций Excel

[johny77]

Владимир, спасибо. Все получилось.

static void Job245(Args _args)
{
    ComExcelDocument_RU     excel;
    COM                     comDocument, comProperties;
    ComDispFunction         funcSet;
    ComVariant              comVar1, comVar2, comVar3, comVar4;
    
    ;
    excel = new ComExcelDocument_RU();
    excel.newFile();

    comDocument   = excel.getComDocument();
    comProperties = comDocument.CustomDocumentProperties();
    if (comProperties)
    {
        //comProperties.Add("Запрос", false, 5, "Значение запроса", comVar);
        funcSet = new ComDispFunction(comProperties, "Add", COMDispContext::Method);
        comVar1 = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BSTR);
        comVar1.bStr("Запрос");
        comVar2 = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BOOL);
        comVar2.boolean(false);
        comVar3 = new COMVariant(COMVariantInOut::In, COMVariantType::VT_INT);
        comVar3.int(4);
        comVar4 = new COMVariant(COMVariantInOut::In, COMVariantType::VT_BSTR);
        comVar4.bStr("Значение запроса");
        funcSet.call(comVar1, comVar2, comVar3, comVar4);
    }
}