【搞定】请教关于ComObj的问题**

comqing

我uses 了Borland.Delphi.ComObj
WordApp: OLEVariant;
但  WordApp := CreateOleObject('Word.Application'); 在平台中编译不通过,而在delphi中能够通过.
请问这是为何?

alang

http://bbs.justep.com/forum.php? ... ght=CreateOleObject

comqing

问题: 通过System.DispatchHelper 类怎么在平台中实现word中表格的定位,并且在表格中插入数据,
    app := System.DispatchHelper.Create(O);
    app.PropertyPut('Visible', [True]);
    docs := System.DispatchHelper.Create(app.PropertyGet('Documents',[]));
    docs.InvokeMethod('Add', [FileName,False]);
    doc := System.DispatchHelper.Create(app.PropertyGet('ActiveDocument',[]));

    selection := System.DispatchHelper.Create(app.PropertyGet('Selection',[]));
    Table := System.DispatchHelper.Create(selection .PropertyGet('Tables',[1]));
我上面定位Table报错,说不支持items属性,如何定位Tables集合中的某个Table?谢了!!

alang

VBA中原始的写法是什么？

comqing

ActiveDocument.Tables(1).Rows(1).Delete

alang

ActiveDocument.Tables(1).Rows(1).Delete
Table := System.DispatchHelper.Create(selection .PropertyGet('Tables',[1]));

这里不对了吧

comqing

Table := System.DispatchHelper.Create(ActiveDocument.PropertyGet('Tables',[1]));也不行啊

alang

app := System.DispatchHelper.Create(O);
    app.PropertyPut('Visible', [True]);
    docs := System.DispatchHelper.Create(app.PropertyGet('Documents',[]));
    docs.InvokeMethod('Add', [FileName,False]);
    doc := System.DispatchHelper.Create(app.PropertyGet('ActiveDocument',[]));

    selection := System.DispatchHelper.Create(app.PropertyGet('Selection',[]));
    Table := System.DispatchHelper.Create(doc .PropertyGet('Tables',[1]));

comqing

兄弟,我就是这样写的,但是说不支持Item属性.

comqing

请帮忙看看 谢了 现在很急