Perl Win32 :: OLE Word单元格文本

Question

文本被截断。我已经记录了单元格区域和文本选项的编码，但每个单元格的第一个字符被截断，只打印每个单元格的最后一个句子。不知道这是否与单元格格式有关，但某些单元格具有正确的对齐方式。

任何帮助将是巨大的......这里是代码

use warnings; 
use strict; 
use Win32::OLE qw(in with); 
use Win32::OLE::Const 'Microsoft Word'; 
use Win32::OLE::Variant; 
my $txt = ""; 
my $var1 = Win32::OLE::Variant->new(VT_BOOL, 'true'); 

# we are going be working with MS Word Objects 
$Win32::OLE::Warn = 3; 

# get already active Excel application or open new 
my $Word = Win32::OLE->GetActiveObject('Word.Application') 
    || Win32::OLE->new('Word.Application', 'Quit'); 

# open Excel file 
my $Book = $Word->Documents- >Open("http://classroom.kleinisd.net/webs/lbalthazar/upload/2nd_six_weeks_calendar.docx"); 

#$Word->{Visible}= 0; # we don't need to see Word in an active window 

# get the first table 
my $table = $Word->ActiveDocument->Tables(1); 
foreach my $row (1..4) 
{ 
foreach my $col (1..5) 
{ 
$txt = $table->Cell($row,$col)->Range->{Text}; 
print "$txt \n"; 
} 
} 
print "Closing document and Word\n"; 
#$Word->ActiveDocument->Close(); 
$Word->Quit; 

Answer 1

可以尝试用可见= 1？我记得面对与可见= 0的ole对象的问题。