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