perl - OpenOffice::OODoc 样式化段落中的文本

Question

我有一个简单的任务，就是添加一个段落，其中包含一些格式化的文本。我不知道如何风格化文本。

示例输出:John Smith 200 Main Street single

my $doc = odfDocument(file=> 'outputfile.odt',create=> 'text');
$doc->appendParagraph(text => "John Smith 200 Main Street single", style => "optionalParagraphStyle");
$doc->save;

我一直在阅读有关 CPAN 的文档 http://search.cpan.org/~jmgdoc/OpenOffice-OODoc/我看到我可以使用 textStyle(element [, style]) 来更改现有元素的样式。我必须先添加文本才能设置样式吗？

Answer 1

请参阅extendText()和 setSpan()在文档中。

这是一个可以满足您要求的示例:

use OpenOffice::OODoc;
my $doc = odfDocument(file=> 'outputfile.odt',create=> 'text');
$doc->createStyle(
    "strong",
    family     => "text",
    properties => { "fo:font-weight"  => "bold" }
    );
$doc->createStyle(
    "em",
    family     => "text",
    properties => { "fo:font-style"  => "italic" }
    );

my $p = $doc->appendParagraph(text => "", style => "optionalParagraphStyle");
$doc->extendText($p, "John Smith");
$doc->extendText($p, " 200 Main Street", "strong");
$doc->extendText($p, " single", "em");

my $p = $doc->appendParagraph(text => "John Smith 200 Main Street single", style => "optionalParagraphStyle");
$doc->setSpan($p, "200 Main Street", "strong");
$doc->setSpan($p, "single", "em");

$doc->save;