Re: create a new empty odt file and change the style properties

CPAN::Forum

OpenOffice-OODoc - Re: create a new empty odt file and change the style properties

OpenOffice-OODoc [search.cpan.org] [Kobes search] [View and report bugs] [Ratings 4.3

(4) ]

[AnnoCPAN] [CPAN Tests results] [CPANTS]

Posted on Thu Sep 14 22:24:22 2006 by jeunice in response to 3030 (See the whole thread of 3)

Re: create a new empty odt file and change the style properties

So, two problems that I see:

(1) OpenOffice has both internal and external (display) style names. The main difference is that spaces are replaced with '_20_', so that 'Text body' becomes 'Text_20_body' in the XML representation. Given your request, the updateStyle code eventually asks for a style with attribute style:name="Text body"--and there is no such style. There is, however, a style with style:display-name="Text body" and style:name="Text_20_body" attributes. Solution: Ask for the internal style name (which you can easily arrive at with a simple substitution).

(2) I don't know where your variable $content is defined, but it isn't properly initialized in the code you provided.

Try this code, instead:

use OpenOffice::OODoc; $document = ooDocument ( file => 'test.odt', create => 'text' ) or print " can not create $filename! \n"; $document->save; $style = ooDocument ( file => 'test.odt', member => 'styles', ) or print " can not open document.odt styles ! \n"; $style->updateStyle ( 'Text_20_body', properties => { 'area' => 'text', 'fo:font-size' => "8pt", 'style:font-name' => 'Verdana' } ) or print " can't updateStyle $LINE!\n" ; $style->save("test.odt"); $document = ooDocument ( file => 'test.odt', ) or print " can not create $filename! \n"; $document->appendParagraph ( text => 'Text body content', style => 'Text_20_body' ); $document->save("test.odt");

Direct Responses: 3035 | Write a response

Service launched on 2nd of February 2005.
Comments, and other submissions on CPAN Forum are Copyright 2005-2007, their respective owners.
Site maintainer is not responsible for content. Privacy Policy

Maintained and hosted by Gabor Szabo at Perl Training Israel