Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/heroku/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Perl Win32::OLE Word单元格文本_Perl - Fatal编程技术网

Perl Win32::OLE Word单元格文本

Perl Win32::OLE Word单元格文本,perl,Perl,文本正在被截断。我已经按照文档中的说明对单元格范围和文本选项进行了编码,但是每个单元格的第一个字符被截断,并且只打印每个单元格的最后一句话。不确定这是否与单元格格式有关,但某些单元格具有正确的对齐方式 任何帮助都会很好…这是代码 use warnings; use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Word'; use Win32::OLE::Variant; my $txt = "";

文本正在被截断。我已经按照文档中的说明对单元格范围和文本选项进行了编码,但是每个单元格的第一个字符被截断,并且只打印每个单元格的最后一句话。不确定这是否与单元格格式有关,但某些单元格具有正确的对齐方式

任何帮助都会很好…这是代码

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;

可以尝试使用visible=1吗?我记得在visible=0的ole对象中遇到问题

可以尝试使用visible=1吗?我记得在visible=0的ole对象中遇到问题