Win32 OLE (perl) - 将表格列宽调整为文本答案

【问题标题】：Win32 OLE (perl) - resize table column width to textWin32 OLE (perl) - 将表格列宽调整为文本
【发布时间】：2016-09-07 12:20:39
【问题描述】：

我有一个 Perl 脚本，它使用 Win32::OLE 将带有一些文本的行添加到 Word 文档中的现有表中。
现在，我想让它也调整表格列的大小以匹配文本大小（就像双击两列之间的垂直线一样）我知道如何将列设置为特定宽度，但我似乎找不到用于调整列大小以匹配文本大小的 API。

谁能告诉我要寻找什么？

作为参考，这是我脚本中的代码 sn-p：

my $tbl = $document->Tables(1);
my $row = $tbl->Rows->Add();
$row->Cells(1)->Range()->InsertAfter($timestamp);
$row->Cells(2)->Range()->InsertAfter($comment);
$row->Cells(3)->Range()->InsertAfter($username);
# TODO: resize columns to match the content

【问题讨论】：

标签： perl ms-word ole

【解决方案1】：

您是否尝试过 Cells.AutoFit() 方法？例如Columns.AutoFit

不过，它似乎只支持 Excel 2010 及更高版本。

https://msdn.microsoft.com/en-us/library/office/ff837476.aspx

【讨论】：

谢谢！添加了 $tbl->Columns->AutoFit();而且效果很好。