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;