in reply to Run the word macro by using Win32::OLE

try something like
$word->run('Macro1', 'arg1');

Updated: Too many ->