Select Code to Download

$Word->Documents->Open("$dir\\$file") or die "Can't open ", Win32::OLE
+->LastError());
        $Word->Run("MACRO-NAME");