$word=Win32::OLE->GetActiveObject('Word.Application');
$doc->Open("$file");
$add=$word->AddIns;
$a=$add->Add({FileName=>"d:/macro.dot", Install=>"True"});