my $oldFont;		# variable to hold the current font

while(defined(my $paragraph = $enumerate->Next())) {

    my $text = $paragraph->{Range}->{Text};
    my $sel = $Word->Selection;
    my $font = $sel->Font;
	if (!defined($font))   { $font    = $oldFont;  }   # use the old font instead
	else                   { $oldFont = $font;     }   # use this font for future paragraphs