perl - Perl OpenOffice::OODoc 修改页眉/页脚样式文本

Question

我试图弄清楚如何更改 ODT 文件页脚中的文本。页脚保存在 styles.xml 中，但是我似乎无法使用 selectElementsByContent 或任何其他方法访问它：

my $a = odfContainer('test.odt');
my $styles = odfDocument(container => $a, part => 'styles');

foreach my $element ($styles->selectElementsByContent('mytest'))
{
   #never runs...

}

odt 中的 styles.xml 如下：

<office:document-styles>
    <office:master-styles>
        <style:master-page>
            <style:footer>
                <text:p test:style-name="P49">
                    mytest
                </text:p>
            </style:footer>
        </style:master-page>
    </office:master-styles>
</office:document-styles>

更改 text:p 内容的正确方法是什么？

Answer 1

我最终不得不使用 odfXPath 循环：

my $ss = odfXPath(file => 'myfile.odt' , part => 'styles');
my $p =0;
while (my $p = $ss->getElement('//text:p',$p))
{
if ($ss->getText($para) eq 'mytest') { $ss->setText($p,'foobar');}
$p++;
}
$ss->save('mynewfile.odt');