Select Code to Download

$Active::Document->{Saved} = 1;
$Active::Document->Close;

    my $MSDN_const = { 
        %{ Win32::OLE::Const->Load("Microsoft Word 11.0 Object Library
+") }
...
        }
        );