ACUCOBOL合并.fodt文件样式保留问题求助：边距异常

问题背景 #

我需要用ACUCOBOL编写程序，将两个或多个.fodt文件合并为单个文件，同时完整保留每个文件的样式与格式。目前程序能完成内容合并，但样式保留存在问题：最后一个文件的边距会覆盖之前所有文件的边距。当前处理逻辑是从第二个文件开始，将office:automatic-styles节点复制到前一个文件的</office:body>节点之后，尝试修改style:name属性也无法解决问题。使用环境为Windows 11 + ACUCOBOL。

示例文件 #

文件1 #

<?xml version="1.0" encoding="UTF-8"?>
<office:document>
  <config:config-item> </config:config-item>
  <office:automatic-styles>
  </office:automatic-styles>
  <body>
    <text:p text:style-name="P1">Test 1</text:p>
  </body>
</office:document>

文件2 #

<?xml version="1.0" encoding="UTF-8"?>
<office:document>
  <config:config-item> </config:config-item>
  <office:automatic-styles>
  </office:automatic-styles>
  <body>
    <text:p text:style-name="P1">Test 2</text:p>
  </body>
</office:document>

当前合并结果（样式异常） #

<?xml version="1.0" encoding="UTF-8"?>
<office:document>
  <config:config-item> </config:config-item>
  <office:automatic-styles>
  </office:automatic-styles>
  <body>
    <text:p text:style-name="P1">Test 1</text:p>
  </body>

  <office:automatic-styles>
  </office:automatic-styles>
  <body>
    <text:p text:style-name="P1">Test 2</text:p>
  </body>
</office:document>

问题分析 #

.fodt是基于XML的OpenDocument文本格式，其样式体系存在全局唯一性约束：

1. 整个文档只能有一个office:automatic-styles节点，多个重复节点会被解析器忽略，仅最后一个生效，这是边距被覆盖的核心原因。
2. 不同文件中重复的样式名（如示例中的P1）会导致样式引用冲突，后引入的样式会覆盖前序同名样式。

解决方案 #

1. 重构样式合并逻辑，维护全局唯一样式容器 #

• 以第一个文件为基础，保留其office:automatic-styles作为全局样式容器。
• 遍历后续每个文件：
  • 提取office:automatic-styles下的所有样式条目，对样式名进行重命名（如将第二个文件的P1改为P2）。
  • 同步修改该文件body内所有元素的text:style-name引用，确保指向重命名后的样式。
  • 将重命名后的样式条目添加到全局office:automatic-styles中。

2. 页面边距与布局的独立处理 #

页面边距通常定义在style:page-layout节点中，需将每个文件的页面布局作为独立节处理：

• 提取后续文件的style:page-layout样式，重命名后加入全局样式容器。
• 在插入该文件内容前，添加<text:section>节点并绑定重命名后的页面布局样式，用该节包裹文件的body内容，实现页面布局的独立生效。

3. ACUCOBOL实现要点 #

• 采用字符串处理或ACUCOBOL支持的XML解析工具，解析每个.fodt文件的XML结构。
• 编写样式重命名函数：遍历样式节点修改style:name，同时遍历body元素更新对应引用。
• 合并时仅保留第一个文件的根节点、全局配置与初始样式，依次插入处理后的后续文件内容（带独立节与对应样式）。

修正后的合并示例 #

<?xml version="1.0" encoding="UTF-8"?>
<office:document>
  <config:config-item> </config:config-item>
  <office:automatic-styles>
    <!-- 文件1的原始样式 -->
    <style:style style:name="P1"></style:style>
    <!-- 文件2重命名后的段落样式 -->
    <style:style style:name="P2"></style:style>
    <!-- 文件2重命名后的页面布局样式 -->
    <style:page-layout style:name="PageLayout2"></style:page-layout>
  </office:automatic-styles>
  <body>
    <text:p text:style-name="P1">Test 1</text:p>
    <!-- 文件2内容包裹在独立节中，绑定专属页面布局 -->
    <text:section text:style-name="PageLayout2">
      <text:p text:style-name="P2">Test 2</text:p>
    </text:section>
  </body>
</office:document>

内容的提问来源于stack exchange，提问作者P4l