word文件批量另存为txt

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{'Visible'} = 1;
my $document = $word->Documents->Open('H:\deepfuture\深未来\文本挖掘\相关代码\word操作\xxx.DOC');
my $txtfilename = 'H:\deepfuture\深未来\文本挖掘\相关代码\word操作\xx.txt';
$document->saveas({FileName=>$txtfilename,FileFormat=>wdFormatText});
$word->quit();