ＷＯＲＤ数据转换问题 ( 积分: 100 )

哪位朋友知道如何将ＷＯＲＤ表格数据转换成ＴＸＴ文件啊，

哪位朋友知道如何将ＷＯＲＤ表格数据转换成ＴＸＴ文件啊，

先COPY到CLIPBOARD，再以CLIPBOARD.ASTEXT读到TXT文件里。

不是很清楚，能否给个实例，谢谢

没人知道吗？

转贴：
unit untWordCnv;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, Word2000;

function WordOpen(sFileName:String):Word2000.WordDocument;
procedure WordSaveAs(Doc:WordDocument;var FileFormat:OleVariant;ToFileName:string);
Procedure QuitWord;
implementation

uses untMain;
procedure QuitWord;
var
SaveChanges,
OriginalFormat,
RouteDocument : OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication.Quit(SaveChanges,OriginalFormat,RouteDocument);
except
End;
end;

function WordOpen(sFileName:String):Word2000.WordDocument;
var
FileName: OleVariant;
ConfirmConversions: OleVariant;
ReadOnly: OleVariant;
AddToRecentFiles: OleVariant;
PasswordDocument: OleVariant;
PasswordTemplate: OleVariant;
Revert: OleVariant;
WritePasswordDocument: OleVariant;
WritePasswordTemplate: OleVariant;
Format: OleVariant;
Encoding,Visible : OleVariant;
begin
FileName:=sFileName;
ConfirmConversions:=false;
ReadOnly:=true;
AddToRecentFiles:=false;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=False;
WritePasswordDocument:='';
WritePasswordTemplate:='' ;
Format:=wdOpenFormatAuto;
Encoding:=EmptyParam;
Visible:=true;

result:=Form1.WordApplication.Documents.open(FileName,
ConfirmConversions,ReadOnly,AddToRecentFiles,
PasswordDocument,PasswordTemplate,Revert,
WritePasswordDocument,WritePasswordTemplate,Format,
Encoding,Visible);
end;

procedure WordSaveAs(Doc:WordDocument;var FileFormat:OleVariant;ToFileName:string);
var
FileName ,
LockComments ,
Password ,
AddToRecentFiles ,
WritePassword ,
ReadOnlyRecommended ,
EmbedTrueTypeFonts ,
SaveNativePictureFormat ,
SaveFormsData ,
SaveAsAOCELetter: OleVariant;
newdir:string;
begin
FileName:=ToFileName;
newdir:=ExtractFilePath(ToFileName);
if not DirectoryExists(newdir) then
ForceDirectories(newdir);
// FileFormat:=wdFormatText;
LockComments:=False;
Password:='';
AddToRecentFiles:=False;
WritePassword:='';
ReadOnlyRecommended:=False;
EmbedTrueTypeFonts:=False;
SaveNativePictureFormat:=False;
SaveFormsData:=False;
SaveAsAOCELetter:=False;
doc.SaveAs(
FileName ,
FileFormat ,
LockComments ,
Password ,
AddToRecentFiles ,
WritePassword ,
ReadOnlyRecommended ,
EmbedTrueTypeFonts ,
SaveNativePictureFormat ,
SaveFormsData ,
SaveAsAOCELetter);
end;

end.