my $doc = Win32::OLE->new('Word.Application', 'Quit');
$doc->Documents->Open($path);
my $path=~ s/(.*)\.fin/$1/i;
$path = $1;
my $fileName = "$path.rtf";
$doc->ActiveDocument->SaveAs({FileName => $fileName, FileFormat => wdFormatRTF});