use Win32::OLE; use Win32::OLE::Const 'Microsoft Word'; $file = "c:\\C-212\\200539061_D.doc"; $new_file = "c:\\C-212\\200539061_D.txt"; $WordObj = Win32::OLE->new('Word.Application', 'Quit') or die "Couldn' +t run Word"; $wd = $WordObj->Documents->Open($file); $WordObj->ActiveDocument->SaveAs({ FileName => $new_file, FileFormat =>wdFormatText, }); $wd->Close(); $WordObj->exit;
In reply to MS Word and PERL by jamiros
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |