Как изменить ширину столбцов таблицы Word с помощью Perl?

Question

Использование Perl с модулем Win32 :: OLE Я пытаюсь вставить таблицу в документ Microsoft Word, а затем изменить ширину столбцов. Я могу вставить таблицу без каких-либо проблем, но изменение ширины столбцов оказалось более сложным. После создания макроса и пытается перевести VBA в Perl, вот что у меня есть:

my $word = Win32::OLE->new('Word.Application', sub {$_[0]->Quit;}); 
my $doc = $word->Documents->Open('myfile.doc'); 

### Code to find and select a tag to replace with a table goes here ### 

my $table = $doc->Tables->Add($word->Selection->Range, 4, 4); 
$table->Columns(1)->{PreferredWidthType} = wdPreferredWidthPoints; 
$table->Columns(1)->{PreferredWidth} = 200; 

К сожалению, это дает «Невозможно использовать неопределенное значение в качестве эталона HASH» ошибка на последних двух строках. Я пробовал несколько других вариантов, но ни один из них не работал, и Google тоже не помог. Я бы очень признателен за ответ, как это сделать.

Спасибо.

Answer 1

После нескольких проб и ошибок я обнаружил, что это сделало работу:

$table->Rows(1)->Select; 
$word->Selection->Columns(1)->{Width} = 200; 

Это было достаточно, чтобы изменить размер только столбцы на строке 1, и это повлияло на все остальные строки. Это легко, когда вы знаете, как это сделать!