use Win32::OLE;
my $word = Win32::OLE->GetActiveObject('Word.Application')
      || Win32::OLE->new( 'Word.Application', 'Quit' );

my $wd_const = Win32::OLE::Const->Load($word);