Help for this page

Select Code to Download

Select or download this

use strict;
use Win32::OLE ;
...

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