Help for this page

Select Code to Download


  1. or download this
    $Doc->Activate();
$Doc->SaveAs ('F:\\dev\\experiment\\ScanWord\\foobar.doc');
  2. or download this
    use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
...

my $Doc = $Word->Documents->Open($wrdfile) || die &CheckError();