use Win32::OLE qw(in);
@items = in $doc->Words->Items;