Hi Simon! Thanks for the reply, My code works but it throws Error as shown below ,

Win32::OLE(0.1709) error 0x80010108: "The object invoked has disconnected from its clients" in METHOD/PROPERTYGET "Quit" at Author_doc_read_new.pl line 0 eval {...} called at Author_doc_read_new.pl line 0 eval {...} called at Author_doc_read_new.pl line 0

What may be the cause of it? Below is my code snippet:

use Win32::OLE;
use Win32::OLE::Enum;
use Win32::OLE::Const 'Microsoft Office 15.0 Object Library';
use Win32::OLE::Const 'Microsoft Word';
  
#$tm = localtime;
#print "$tm\n";

#Create and Open the Text file to Write
open(OUTFILE2,">Author_name_extract.txt") or die("Cant open Output fil
+e\n");
      
        ### open Word application and add an empty document
        ### (will die if Word not installed on your machine)
        my $word = Win32::OLE->new('Word.Application', 'Quit') or die;
        $word->{Visible} = 0;

    
@filesnames = glob '*.docx';
#@filesnames = "AR765_Maint_Code_repositoryUINT32.docx";
foreach $count (@filesnames)  #Loop till the end is reached
{

    if($count !~ /^~\$/)
    {
        print "$count\n";
        
        $filename = "D:\\MRJ_BCU\\Perl\\From thejaswini\\doc_read\\$co
+unt";
        #my $document = $word->Documents->open($filename) || die 'Unab
+le to open document: ', Win32::OLE->LastError;
    
        my $document = $word->Documents->open($filename)|| die 'Unable
+ to open document:';
        open(OUTFILE1,">File_under_Review.txt") or die("Cant open Outp
+ut file\n");

        print "Extracting Text from $filename...\n";

        $paragraphs = $document->Paragraphs();
        $enumerate = new Win32::OLE::Enum($paragraphs);
        while(defined($paragraph = $enumerate->Next()))
        {
            $a = $paragraph->{Range}->{Text};
            print OUTFILE1 "$a\n";
        }

        close(OUTFILE1);

        $document->Save;
        $document->Close;

        # Open the Converted Text file to read the Pattern.
        open(INFILE,"<File_under_Review.txt") or     die("Can't open f
+ile specified\n");

        while($a = <INFILE>)
        {
            if($a !~ /\S/)
            {
                ;
            }
            else
            {
                $b = $a;       
                if($a =~ /Date:/)
                {
                    $a =~ /\s*\S*\s*Date:\s*(\d*\/\d*\/\d*)\s*/;
                    $a= $1;
                    $a =~ s/\s*//g;
                    $a =~ s/_*//g;
                    print OUTFILE2 "$count\t";
                    print OUTFILE2 "$a\t";
                }
                if($b =~ /Review Moderator:/)
               {
                    $b =~ /\s*\S*\s*Review Moderator:\s*(\w+\s?.?\w*)\
+s*Date:/;
                    $b=$1;
                    $b =~ s/\s{2,}//g;
                    $b =~ s/_*//g;
                    print OUTFILE2 "$b\n";
               }
            }
        
        }
        close(INFILE);
    
        #To Delete the Temp converted text File
        unlink("File_under_Review.txt");
        
    
    }
    else
    {
        print "Corrupted File: $count\n"; 
    }
    
}

#To Quit the Word Application
$word->Quit();

#close the Output text file used to write
close(OUTFILE2);

$tm = localtime;
print "$tm\n";
[download]