Select Code to Download

$Word->Selection->TypeText ({ Text => "The Title",
                                       Style => 'Heading 1',
  });

$Word->Selection->{Style} = wdStyleHeading1;
$Word->Selection->TypeText ({ Text => "The Title"});