use Win32::Shortcut; use Win32::OLE qw(in with); use Win32::OLE::Const; ##=>Changed my $wdc = Win32::OLE::Const->Load("Microsoft Word"); ##=>Added my $x = Win32::OLE->GetActiveObject('Word.Application'); # snip $x->Selection->Delete( { Unit=> $wdc->{wdCharacter}, ##=>Changed Count=>1 } );