如何用程序实现将word文件转换成txt纯文本文件？

[lzrose]

现在有个小程序，需要将word文件转换成TXT纯文本文件，不知各位大侠有没有好办法快速实现？可以使用任何编程语言。不想用VBA来实现，希望做成单独的控件，可以被别的程序来调用。目标就是在转换过程中把WORD中的图片过滤掉，主要考虑需要被其它程序调用，而且是最终用户用起来要很简单，所以希望在后台多做一些工作。

[lzrose]

uses ComObj,
这是什么意思？

[papaya_stone]

delphi的可以吗？

[papaya_stone]

嘿嘿，给你代码，很简单的。可以把它做成dll,被其他的程序调用。

procedure TfmTxtToDoc.btnOkClick(Sender: TObject);
var
sDocName, sTxtName: string;
wordBasic: OleVariant;
begin
if edFileName.Text = '' then
begin
Showmessage('文件名为空');
end;

if LowerCase(ExtractFileExt(edFileName.Text)) <> '.doc' then
begin
sDocName := edFileName.Text + '.doc';
end
else
begin
sDocName := edFileName.Text;
end;

if not FileExists(sDocName) then
begin
Showmessage('文件不存在!');
edFileName.Text := '';
end;

btnOk.Enabled := False;

sTxtName := Copy(sDocName,1,Length(sDocName)-3) + 'txt';

wordBasic := CreateOleObject('Word.Basic');
wordBasic.FileOpen(sDocName);
wordBasic.FileSaveAs(Name := sTxtName, Format := 2);
wordBasic.FileClose(2);

btnOk.Enabled := True;

if FileExists(sTxtName) then
begin
Showmessage('转换完成！');
end;
end;

[lzrose]

papaya_stone(天霸封神斩) 老兄，我先试试，非常感谢。

[papaya_stone]

忘了说了
需要uses ComObj;

[daehappy]

up!gz!