$Word->$Documents($Docname)->SaveAs($filename);
$Word->$Documents($Docname)->Close;
undef $Doc;