perl写WPS文档

perl写WPS文档
www.diybl.com　时间：2009-04-28　作者:匿名 编辑:sky 点击：　21 [评论]

 use Win32::OLE;
my $wd = Win32::OLE->new('WPS.Application')
|| die "CreateObject: " . Win32::OLE->LastError;
$wd->{Visible} = 1;

my $document = $wd->Documents->Add();
$wd->Selection->Font->{Name} = "宋体";
$wd->Selection->Font->{Size} = 12;
$wd->Selection->Font->{Animation} = 3;
$wd->Selection->TypeText("This is a demo");
$document->SaveAs('ole.doc',undef,undef,"111");

文章出处：DIY部落(http://www.diybl.com/course/4_webprogram/cgi/perljs/20090428/165935.html)