To find the answer to your question, I would suggest a couple things. First, I wrote a tutorial about using Excel, but the first couple of paragraphs apply to any OLE development, as they describe resources, books and tools that you might need while trying to figure out how to do certain things in the OLE environment, so you might want to give it a scan.

Second, your note suggests that you aren't really sure what the code you posted is doing, and that might be a really good first place to start, as through research and understanding come enlightenment.

Your line $doc->SaveAs( { FileName => $outfile, FileFormat => $wdFormatText}); is the key. After you open the text file, you'll want to save as wdFormatDocument, though I would load the constants as well, using the following code:

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';

my $textfile = '<SOME FILE PATH>';
my $outfile= '<SOME FILE PATH>';

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');

my $Doc = $Word->Documents->Open($textfile);
   $Doc->SaveAs({FileName => $outfile, FileFormat => wdFormatDocument}
+);
[download]

YMMV, some restrictions may apply.

C-.

---
Flex the Geek