If you are ok using CQPerl you can easily do that in an external script.
Read in the data, then loop through it like:
foreach $id (@idList) {
my $entity = $session->GetEntity('defect', $id);
$session->EditEntity($entity, $action);
my $validate = $entity->Validate();
print "Validate results $validate.";
$entity->Commit();
}
If you need to read directly from word, you can see here:
http://www.wellho.net/solutions/perl-using-perl-to-read-microsoft-word-documents.html
use Win32::OLE;
use Win32::OLE::Enum;
$document = Win32::OLE -> GetObject($ARGV[1]);
open (FH,">$ARGV[0]");
print "Extracting Text ...\n";
$paragraphs = $document->Paragraphs();
$enumerate = new Win32::OLE::Enum($paragraphs);
while(defined($paragraph = $enumerate->Next()))
{
$style = $paragraph->{Style}->{NameLocal};
print FH "+$style\n";
$text = $paragraph->{Range}->{Text};
$text =~ s/[\n\r]//g;
$text =~ s/\x0b/\n/g;
print FH "=$text\n";
}