use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';

$word=Win32::OLE->GetActiveObject('Word.Application');

$doc= $word->activedocument;

$rng = $doc->{range};

	$rng = $doc->{range};
	$rng->find->clearformatting;
	$rng->find->replacement->clearformatting;
	$rng->find->{style}="tbl";
	$rng->find->execute({findText=>"^13",wrap=>wdFindStop});
	$rng->find->found;
	$rng->select;