Try something like:

use strict;
use warnings;
use Win32::OLE;

my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 1;
my $filename = 'C:/tmpx/test.docx';
my $document = $word->Documents->Open($filename);
[download]

GetObject is something I rarely use or recommend. It is trying to take control of an existing instance of word, which may be doing anything. Create your own instance and you know it's clean. There isn't an instance of an application called "C:\\tmpx\\test.docx" for Perl to grab (although there may be an instance of word that is using this file), so it fails quite correctly.

Regards,

John Davies

Update: fixed typo in text