怎么在DELPHI里读取WORD文档里的表格内容啊！

Question

现在在做一个东西，是读取WORD文档的表格内容，然后录入数据库里面。
表格格式都是固定的，但一个文档里面可能有多个表格，我现在也不知道怎么读取表格的内容，着急啊，高手请指教哦！

Answer 1

uses
  ComObj;procedure TfrmMain.Button1Click(Sender: TObject);
var
    wrdApp, wrdDoc: Variant;
begin
  randomize;
  wrdApp := CreateOleObject('Word.Application');
  wrdDoc := wrdApp.Documents.Open('d:\study\WordApp\Test.doc');
  wrdDoc.Tables.Item(1).Rows.Item(1).Cells.Item(1).Range.Text:=IntToStr(random(10000));
  wrdDoc.Save;
  wrdDoc.Close(False);
//  wrdApp.Close;
end;

Answer 2

uses
  ComObj;procedure TfrmMain.Button1Click(Sender: TObject);
var
    wrdApp, wrdDoc: Variant;
begin
  randomize;
  wrdApp := CreateOleObject('Word.Application');
  wrdDoc := wrdApp.Documents.Open('d:\study\WordApp\Test.doc');
  wrdDoc.Tables.Item(1).Rows.Item(1).Cells.Item(1).Range.Text:=IntToStr(random(10000));
  wrdDoc.Save;
  wrdDoc.Close(False);
//  wrdApp.Close;
end;

Answer 3

建议你重装（修改）Office的安装，安装时候选取编程参考这选项，大概这么叫的，默认也是不装的。
然后，你就可以在word的帮助中看到“与编程有关的信息”，里面内容对你大有帮助，包括了word的文档对象模型。然后用我上面示例的代码就可以操作word的表格了。
比如，.Tables.Count就能返回有多少表，.Tables.Item(1).Columns.Count返回第一个表的列数。