#Create filenames
$file =~ s/(.*)\.fin/$1/i; 
$file = $1; 
my $fileName = "$file.rtf"; 
my $fileName2 = "$file.doc"; 

#Convert to RTF
my $doc = Win32::OLE->new('Word.Application', 'Quit');
$doc->Documents->Open($path); 		
$doc->ActiveDocument->SaveAs({FileName => $fileName, FileFormat => wdFormatRTF}); 

#Close Winword
$doc->Quit(); 
undef $doc;
			
#Run pretty print macro and save as word doc format
my $doc1 = Win32::OLE->new('Word.Application', 'Quit');  
$doc1->Documents->Open($path);	
$doc1->ActiveDocument->Run("psqtemplate"); 
$doc1->ActiveDocument->SaveAs({FileName => $fileName2}); 

# Close Winword 
$doc1->Quit();
undef $doc1;