Select Code to Download

use Win32::OLE;
use Win32::OLE qw(in with);
...
$word->AddIns->Add({Filename=>"$cur_dir\\vad.dot", Install=>"True"});
#$word->run("vad")       #running fine
$word->run("vad", "D:\\Prasad\\Projects\\tools\\vad"'); #getting error

OLE exception from "Microsoft Word":

...

Win32::OLE(0.1707) error 0x80020003: "Member not found"
    in METHOD/PROPERTYGET "run" at D:\Prasad\Projects\tools\vad\vad.pl
+ line 314

sub vad(path as string)
{
}