#Open up MS Word and only display the spellcheck box.
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->{'Visible'} = 0;
my $TmpDocument = $Word->Documents->Open($fileLocation)
    || die("Unable to open document ", Win32::OLE->LastError());
$TmpDocument->Activate;
$TmpDocument->CheckSpelling;

#Save the text file back to its original location
$Word->ActiveDocument->SaveAs($fileLocation);
$Word->Quit;