替换段落的部分

Question

我目前正在尝试从perl脚本向Open Office Writer文档中插入一个段落，然后在该段落中搜索特定短语，并使用setTextSpan()将其替换为另一个。我可以轻松插入段落，就在应用样式时，似乎没有任何效果。示例代码提取如下：

my $doc = odfDocument(
    container => $container,
    part      => 'content',
);

$place = $doc->selectElementByContent("LOCATION");

$doc->insertParagraph(
    $place,
    position => 'before',
    text => "Sample text for demonstration purposes"
);

doc->setTextSpan(
    $place, 
    replace => "Sample text",
    text => "replaced Text"
);

有什么想法吗？