Question

我需要从MS-Word文件中获取表格数据。我引用的代码只提取第一行和最后一行，但我需要获取整个表。

稍后，如果文件夹中存在相同的文件名，则必须交叉检查所获取的数据。

我甚至无法理解代码的流程，因为我是Win32::OLE模块的新手。

我已经提到了一个关于在这个网站上获取数据的类似问题，但是无法得到它。

请告诉我如何继续。

PASDB

更新： A.doc

#!/usr/bin/perl 

use strict;
use warnings;

use File::Spec::Functions qw( catfile );
use Win32::OLE qw(in);
use Win32::OLE::Const 'Microsoft Word';

$Win32::OLE::Warn = 3;

my $word = get_word();
$word->{DisplayAlerts} = wdAlertsNone;
$word->{Visible}       = 1;

my $doc    = $word->{Documents}->Open('D:\A.doc');
my $tables = $word->ActiveDocument->{'Tables'};

for my $table (in $tables) {
  my $tableText = $table->ConvertToText({ Separator => wdSeparateByTabs });
  print "Table: " . $tableText->Text() . "\n";
}

$doc->Close(0);

sub get_word {
  my $word;
  eval { $word = Win32::OLE->GetActiveObject('Word.Application'); };
  die "$@\n" if $@;
  unless (defined $word) {
    $word = Win32::OLE->new('Word.Application', sub { $_[0]->Quit })
        or die "Oops, cannot start Word: ", Win32::OLE->LastError, "\n";
  }
  return $word;
}

CMD输出

Article    No.      Count No      Committee
 A0029     A0029    16            E01.07
 B0028     B0028    34            E04.09
 C0036     C0036    17            E09.00
 D0033     D0033    15            E08.07

从MS-Word文件中获取表格数据

0 个答案: