把一个目录下的doc文件内容输出为一个文件 mytxt.txt

最新推荐文章于 2021-11-21 09:52:44 发布

最新推荐文章于 2021-11-21 09:52:44 发布 · 226 阅读

文章标签：

#QQ #Blog #Microsoft

脚本语言专栏收录该内容

202 篇文章

订阅专栏

#把一个目录下的doc文件内容输出为一个文件
#程序：刘兴
#时间：2010.3.19
#blog:http://deepfuture.iteye.com
#QQ:782322192

use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $mydir='D:/深未来/测试';
my @list = glob("$mydir/*.doc");

#笔者blog:http://deepfuture.iteye.com/
my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{'Visible'} = 1;
my $mylist;
open MYTXT,">$mydir/mytxt.txt";

#笔者blog:http://deepfuture.iteye.com/
foreach $mylist(@list){
    my $document = $word->Documents->Open("$mylist");
    my $countid=$document->Paragraphs->Count; #取得文档的段落数目
    my $id=1;
    print "\n";
    print "正在处理$mylist";
    while ($id<=$countid){
        my $paragraphs = $document->Paragraphs($id);
        my $myrange = $paragraphs->range;
        if ($myrange->Text){

           print "."   ;
           my $mytext=$myrange->Text;
           print MYTXT "$mytext\n"; #把某个目录下所有doc文件内容输出为一个文件 mytxt.txt
           }
        $id++;
    }

}
$word->quit();