●●●高分求教！！！Delphi中问题,没有人知道吗？

Question

Delphi中如何读取Word中内容（word2000.pas）：
（1）读取Word中一般的文字内容
（2）读取Word中表格内的内容 *******

Answer 1

var
   v:varriant;
Begin
  v:=CreateOleObject('word');
  V.read...........;
End;

Answer 2

var WordApp: TWordApplication;    WordDoc: TWordDocument;
var DocInx,FileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
    PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
begin
    DocInx:=1;
    oFileName := InFile;
    oReadOnly:=true;  WordApp:= TWordApplication.Create(nil);
  WordApp.Visible := false;
  WordDoc:= TWordDocument.Create(nil);
  WordApp.Documents.open(FileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
                           PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
  WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));    For i := 1 To WordDoc.Tables.Count do   //第 i 个表
    begin
      For iRow := 1 To WordDoc.Tables.Item(i).Rows.Count do
        for iCol:=1 to WordDoc.Tables.Item(i).Columns.Count do
          myCell:=WordDoc.Tables.Item(i).Cell(iRow,iCol);    //取第 [iRow,iCol] 列
    end;    if Assigned(WordDoc) then
    begin
      WordDoc.Close;
      WordDoc.Disconnect;
      WordDoc.Destroy;
      WordDoc := nil;
    end;    if Assigned(WordApp) then
    begin
      WordApp.Quit;
      WordApp.Disconnect;
      WordApp.Destroy;
      WordApp := nil;
    end;
  
end;