Select Code to Download

sub create_style {
  my $document  = shift;
...
  $style{name} = $cur_style++;
  return \%style;
}

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

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);

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

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