foreach my $oPara ($Word->ActiveDocument->Paragraphs)