Help for this page
$Doc->Activate(); $Doc->SaveAs ('F:\\dev\\experiment\\ScanWord\\foobar.doc');
use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Word'; ... my $Doc = $Word->Documents->Open($wrdfile) || die &CheckError();