Perl OLE自动化Word表格：动态设置单元格FitText属性问题

你的问题核心在于**wdRowHeightAtLeast规则下，Word不会更新行高属性来反映实际内容撑开的高度**，所以靠行高判断是否超宽完全行不通。换个思路：我们可以直接比较「内容一行显示所需的宽度」和「单元格本身的宽度」，以此来判断是否需要开启FitText。

具体实现步骤如下：

1. 先完成文本填充和基础的WordWrap设置（你已经做了这部分）
2. 临时关闭目标单元格的WordWrap，让内容以单行显示，此时获取内容的实际宽度
3. 对比内容宽度和单元格宽度：如果内容更宽，说明开启WordWrap后会撑高行，这时就开启FitText
4. 恢复单元格的WordWrap设置（保持你原本的排版需求）

对应的Perl代码示例：

# 你的原有设置
my $rowheight = 20;
# ... 表格创建等前置代码 ...

# 填充单元格文本并开启自动换行
my $cell = $table1->Cell($rowindex, $colindex);
$cell->{WordWrap} = "True";
$cell->Range->{Text} = $text;

# 临时关闭WordWrap，获取内容单行显示的宽度
$cell->{WordWrap} = "False";
my $content_width = $cell->Range->{Width};
my $cell_width = $cell->{Width};

# 判断是否需要开启FitText
if ($content_width > $cell_width) {
    $cell->{FitText} = "True";
}

# 恢复WordWrap设置
$cell->{WordWrap} = "True";

补充说明： #

• 为什么要临时关闭WordWrap？因为开启自动换行时，Word会把内容折行适应单元格宽度，此时Range->Width返回的是单元格的宽度，而非内容本身的实际宽度，没法用来判断是否超宽。
• 如果你的单元格有内边距或者特殊格式，可能需要微调判断条件（比如给cell_width减去几个像素的内边距），但大部分场景下直接对比就足够准确。
• 注意FitText开启后，Word会自动缩小字体或调整字符间距来让内容适应单元格宽度，同时保持行高不变，这正好符合你的需求。

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