Forum Webscript.Ru

Программирование => Perl => Тема начата: Green Kakadu от 23 Июня 2004, 02:41:28

Название: из двух документов MS Word делаем один
Отправлено: Green Kakadu от 23 Июня 2004, 02:41:28

Может кому-нибудь пригодится. Берем два word\'овских документа и печатаем их в один файл.

sub CompareWord {
    my( $doc1, $doc2, $outfile) = @_;
   
    require Win32::OLE;
    $Win32::OLE::Warn = 3;    # die on errors...
    my $Word = Win32::OLE->GetActiveObject(\'Word.Application\')
        || Win32::OLE->new(\'Word.Application\', \'Quit\');
   
    my $WordFile = $Word->Documents->Open($doc1);
    $Word->{Visible} = 0;
    $WordFile->Compare( $doc2 );
    $Word->WordBasic->FileSaveAs( $outfile);
    $WordFile->Close();
   
    undef $WordFile;
    undef $Word;
}

это отсюда: http://perlmonks.org/index.pl?node_id=368614
;)