【Perl】批量word和PPT文档转pdf
由于linux上处理word和ppt比较麻烦,而且有文件格式专利的问题,所以以下操作全部在Windows下面进行。 首先需要安装Microsoft Save as PDF加载项,官方下载地址:http://www.microsoft.com/zh-cn/download/details.aspx?id=7 安装成功后可以手工将文档另存为pdf。 需要引用“Win32::OLE”模块 use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; use Win32::OLE::Const 'Microsoft PowerPoint'; word转pdf: sub word2pdf{ my $word_file = $_[0]; my $word = CreateObject Win32::OLE 'Word.Application' or die $!; $word->{'Visible'} = 0; my $document = $word->Documents->Open($word_file) || die("Unable to open document ") ; my $pdffile = $word_file.".pdf"; $document->saveas({FileName=>$pdffile,FileFormat=>wdExportFormatPDF}); $document -> close ({SaveChanges=>wdDoNotSaveChanges}); $word->quit(); } ppt转pdf sub ppt2pdf{ my $word_file = $_[0]; my $word = CreateObject Win32::OLE 'PowerPoint.Application' or die $!; $word->{'Visible'} = 1; my $document = $word->Presentations->Open($word_file) || die("Unable to open document ") ; my $pdffile = $word_file.".pdf"; $document->saveas($pdffile,32); $document -> close ({SaveChanges=>wdDoNotSaveChanges}); $word->quit(); } 注意事项: 1、PPT转换中如果设置powerpoint不显示,即$word->{'Visible'} = 0,会导致转换失败。 2、如果使用完整的路径,路径名中不能有空格以及“%”等特殊符号,不然无法打开文档。 转换当前文件夹下的文件: use Cwd; my $dirname = getcwd(); @files = glob "*.doc"; foreach (@files){ print $dirname.'/'.$_,"n"; word2pdf($dirname.'/'.$_); } 如果要同时转换子文件夹的文件,可以先遍历,然后再转换: use File::Find; find(sub { word2pdf($File::Find::name) if /.(doc|docx)/; ppt2pdf($File::Find::name) if /.(ppt|pptx)/; },"D:/test"); 为了避免多次重复打开word,可以先获取所有需要转换的文档,集中转换: find(sub { push(@file_word,$File::Find::name) if /.(doc|docx)/; },"D:/test"); word2pdf(@file_word); sub deleteSpace{ my $filename = $_[0]; my @temp = split(///,$filename); my $filename_without_path = pop(@temp); $filename_without_path =~ s/s+//g; join('/',@temp).'/'.$filename_without_path; } sub word2pdf{ my @files = @_; my $word = CreateObject Win32::OLE 'Word.Application' or die $!; $word->{'Visible'} = 0; foreach (@files){ my $new_name = deleteSpace($_); rename($_,$new_name); print $new_name,"n"; my $document = $word->Documents->Open($new_name) || die "can not open document"; my $pdffile = $new_name.".pdf"; $document->saveas({FileName=>$pdffile,FileFormat=>wdExportFormatPDF}); $document -> close ({SaveChanges=>wdDoNotSaveChanges}); } $word->quit(); } 也可以换一种实现,先调用chdir到子目录中,然后在子目录中进行转换,可以避免目录有不合法字符导致的转换失败,不过文件名的不合法字符导致的失败也不可避免,所以以上的各种转换,都需要先提出空格以及特殊字符才行,deleteSpace仅仅替换了空格,还需要改进。 ? 转载请注明来自小西山子【http://www.cnblogs.com/xesam/】 本文地址:http://www.cnblogs.com/xesam/archive/2012/11/06/2756222.html (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |