如何使用ODF::lpOD实现表格单元格右对齐且保留边框？

核心原因 #

调用$cell->set_text()时，默认会创建新的段落节点并应用默认段落样式，覆盖了模板中原单元格的段落对齐设置。新建单元格样式时如果不继承原有样式的边框属性，就会丢失边框或导致边框位置异常。

可行解决方案 #

方案1：修改现有段落文本（推荐） #

直接获取单元格内已有的段落对象，仅修改其文本内容，完全保留原有段落的所有样式设置：

# 替代$cell->set_text($number)的写法
my $paragraph = $cell->get_paragraph;
$paragraph->set_text($number);

这种方法无需调整样式，直接复用模板中已配置好的对齐、边框等格式，不会破坏原有布局。

方案2：基于原有样式创建新样式 #

如果必须使用自定义样式（比如需要微调部分属性），需确保新样式继承原有单元格样式的所有属性（包括边框）：

# 获取单元格的原始样式
my $original_cell_style = $cell->get_style;

# 创建继承原始样式的新单元格样式
my $custom_style = $doc->create_style(
    'table-cell',
    parent => $original_cell_style->get_name,
    name   => 'CustomRightAlignCell'
);

# 确保段落右对齐（若原始样式未明确设置，可添加此属性）
$custom_style->set_property('fo:text-align' => 'end');

# 将新样式应用到单元格
$cell->set_style($custom_style);

# 再设置文本内容
$cell->set_text($number);

通过parent参数继承原始样式的边框、内边距等属性，避免手动添加边框导致的位置偏移问题。

方案3：设置文本时指定原有段落样式 #

如果必须使用set_text方法，可在调用时强制指定单元格原有段落的样式：

# 获取单元格现有段落的样式
my $original_para_style = $cell->get_paragraph->get_style;

# 设置文本时绑定该样式
$cell->set_text($number, style => $original_para_style);

强制复用原有段落样式，保留模板中的对齐设置。

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