使用Delphi获取Word文件中的数据

//delphi7、Office2003下编译通过

//参考http://dev.csdn.net/article/18/18811.shtm，并做了修改

//取得Word文件的数据 需要uses OleCtnrs；
procedure TForm1.getWordStr;
var
WordA : TWordApplication;
WordDoc: TWordDocument;
DocInx,oFileName,CfCversio ,oReadOnly,AddToRctFiles, wDocument,
wTemplate,oRevert,WwDocument,WwTemplate,oFormat,olevar: OleVariant;
i,iRow,iCol:integer;
myCell:Cell;
myRow:Row;
s:string;
myRange: Range;
begin
// ===== 创建对象 =====
if not Assigned(WordA ) then
begin
WordA := TWordApplication.Create(nil);
WordA .Visible := false;
end;
if not Assigned(WordDoc) then
WordDoc:= TWordDocument.Create(nil);
try
DocInx:=1;
oFileName := 'c:/1.doc';
oReadOnly:=true;
CfCversio := EmptyParam;
AddToRctFiles:= EmptyParam;
wDocument:= EmptyParam;
wTemplate:= EmptyParam;
oRevert:= EmptyParam;
WwDocument:= EmptyParam;
WwTemplate:= EmptyParam;
oFormat:= EmptyParam ;
// ===== 打开文件 =====
WordA.Documents.Open(oFileName,CfCversio ,oReadOnly,AddToRctFiles,wDocument, wTemplate,oRevert,WwDocument,WwTemplate,oFormat,olevar,olevar,olevar,olevar,olevar);
// ===== 关联文件 =====
// WordDoc.ConnectTo(WordA.Documents.Item(DocInx));

WordA.Selection.WholeStory;
WordA.Selection.Copy;
Richedit1.PasteFromClipboard;
s:=Richedit1.Text ;
//s:= WordA.Selection.Text;
Showmessage(s);
finally
if Assigned(WordDoc) then // ===== 关闭文件 =====
begin
WordDoc.Close;
WordDoc.Disconnect;
WordDoc.Destroy;
WordDoc := nil;
end;
if Assigned(WordA ) then // ===== 关闭Word =====
begin
WordA .Quit;
WordA .Disconnect;
WordA .Destroy;
WordA := nil;
end;
end;
end;