- #!/usr/bin/perl -w
- use Win32::OLE;
- $filename = 'wordFile.doc';
- $doc = Win32::OLE->GetObject( $filename )
- or die "Cannot load file $filename from Word, $!";
- # Print document.
- $doc->PrintOut();
- #该片段来自于http://www.codesnippet.cn/detail/21112012522.html
来源: http://www.codesnippet.cn/detail/21112012522.html