Select Code to Download

use strict;
use 5.16.3;
...
use Win32::OLE::Enum;

my $word = Win32::OLE->GetActiveObject('Word.Application') || Win32::O
+LE->CreateObject('Word.Application') or die 'Could not open Microsoft
+ Word';