in reply to Re: Hyperlinks with win32::word::writer
in thread Hyperlinks with win32::word::writer
use strict; use Win32::Word::Writer; my $oWriter = Win32::Word::Writer->new(); $oWriter->WriteParagraph("Testing", heading => 1); $oWriter->WriteParagraph("", style => "Heading 9"); $oWriter->NewParagraph(); $oWriter->TableBegin(); $oWriter->TableRowBegin(); #$oWriter->TableColumnBegin(); $oWriter->SetBold(0); $oWriter->TableColumnBegin(); $oWriter->Write("Column 1"); # $oWriter->TableColumnBegin(); $oWriter->Write("Column 2"); $oWriter->TableColumnBegin(); $oWriter->Write("URL"); my $counter = 0; my @urls = qw (http://ww.perlmonks.org http://www.perl.com http://www. +perl.org); for my $i (@urls){ $oWriter->TableRowBegin(); for my $j (0..1){ $counter++; $oWriter->TableColumnBegin(); $oWriter->Write("$counter"); } # for my $u(@urls){ $oWriter->TableColumnBegin(); # #$oWriter->SetStyle("hyperlink"); # #$oWriter->Write("$u"); $oWriter->Write (""); # Null write, to make a selection my $sel= $oWriter->oSelection; $sel->Hyperlinks->Add( $sel->Range, $i); # #$oWriter->ClearCharacterFormatting(); # } } $oWriter->TableEnd(); $oWriter->SaveAs("my_file.doc");
|
|---|