sub create_style {
  my $document  = shift;
  my $fontname  = shift;
  my $font_size = shift;
  my $bold      = shift;
  my $italic    = shift;

  my $style = $document->Styles->Add($cur_style);

  my $style_font = $style->{Font};

  $style_font -> {Name  } = $fontname;
  $style_font -> {Size  } = $font_size;
  $style_font -> {Bold  } = $bold;
  $style_font -> {Italic} = $italic;

  my %style;

  $style{name} = $cur_style++;
  return \%style;
}

##</code><code>##

sub set_style {
  my $document = shift;
  my $style_arg = shift;
  $document->ActiveWindow->Selection -> {Style} = $style_arg -> {name};
}

##</code><code>##

my $st_normal_10_trebuchetMS   = create_style($document, "Trebuchet MS", 10, 0, 0);
my $st_italic_10_trebuchetMS   = create_style($document, "Trebuchet MS", 10, 0, 1);

##</code><code>##

elsif ($col == 10) { 
	set_style($document, $st_bold_10_trebuchetMS);
	text     ($document, "ER: ");
	set_style($document, $st_normal_10_trebuchetMS);
	text     ($document, "$value");
}

##</code><code>##

my $document = $Word->Documents->Add;
my $selection = $Word->Selection;