http://www.perlmonks.org?node_id=203330


in reply to Converting DOS-Word(5.5) to Winword(97)

That converter comes with office, and can be installed when you install Word (which you will need to do). Make sure that it is installed, and then just open the document in word, save as Current Word document, rinse, repeat.

Specifically, you are looking at using Win32::OLE. Here is some code to get you started:

use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Word'; $Win32::OLE::Warn = 3; my $Word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application', 'Quit'); my $docname; ##PUT AN EXAMPLE DOCNAME HERE $Word->{'Visible'} = 1; $Word->Documents->Open ($docname) or die"Unable to create document ".W +in32::OLE->LastError()."\n"; $Word->Documents->ActiveDocument->SaveAs({FileName=>'NEWFILENAME', FileFormat=>wdFormatDocument});

C-.

---
Flex the Geek