my $Word =  Win32::OLE->new('Word.Application');
my $Doc = $Word->Documents->Open($worktemplate);
$Doc->ActiveWindow->Selection->InsertFile($worktxtfile);
$Doc->ActiveWindow->Selection->HomeKey(wdStory);
$Doc->ActiveWindow->Selection->WholeStory;
$Doc->ActiveWindow->Selection->Font->{'Size'}='9';
$Doc->ActiveWindow->Selection->Font->{'Name'}='Courier New';