Use $Word = Win32::OLE->new ("Word.Application"); rather than $Word = Win32::OLE->GetActiveObject("Word.Application");. I'd guess you had Word running on your test system, but not on the others.

Update: It's not obvious to me why you my $Word = Win32::OLE::Const->Load("Microsoft Word"); as you don't use the constants. In fact you immediately clobber the variable in the next line!