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

alang

请贴上来你出现楼上错误的完整代码

comqing

if not FileExists(FileName) then
    raise Exception.Create('找不到模板！');
  O := ComObj.CreateOleObject('Word.Application');
  try
    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',[]));
    BookMark := System.DispatchHelper.Create(doc.PropertyGet('Bookmarks',[]));
    Table := System.DispatchHelper.Create(doc.PropertyGet('Tables',[1]));
//自定义模板中是有表格１的

comqing

请帮忙看看 谢了

comqing

小顶一下.

alang

光急不行啊，要认真研究一下才可以的
一下是正确的代码：
var
  FileName: String;
  o:   Object;
  app, docs, doc, tbl, row: System.DispatchHelper;
begin
  FileName := 'c:\1.doc';
  o   :=   ComObj.CreateOleObject('Word.Application');
  app := DispatchHelper.Create(o);
  app.PropertyPut('Visible', [True]);
  docs := DispatchHelper.Create(app.PropertyGet('Documents',  []));
//  docs.InvokeMethod('Open', []);
  docs.InvokeMethod('Add', [FileName,False]);
  doc := System.DispatchHelper.Create(app.PropertyGet('ActiveDocument',[]));
  tbl := System.DispatchHelper.Create(doc.PropertyGet('Tables',[]));
  tbl := System.DispatchHelper.Create(tbl.InvokeMethod('Item', [1]));
  row := System.DispatchHelper.Create(tbl.PropertyGet('Rows',[]));
  row := System.DispatchHelper.Create(row.InvokeMethod('Item', [1]));
  row.InvokeMethod('Delete', []);
  (o as System.IDisposable).Dispose;
end;

alang

以下是过程：
1 在word中打开VB编辑器

alang

2 打开对象浏览器

alang

3 找到ActiveDocument

alang

4 找到Docment的Tables属性

alang

5 可以看到Item是函数，不是属性