ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alex Lazarev                         2:5052/7.39    17 Jul 2000  14:12:29
 To : Leonid Bondarenko
 Subject : Re: OLE
 -------------------------------------------------------------------------------- 
 

 
 Sunday July 16 2028 13:08, you wrote to All:
 
  LB> Помогите плиз! Hадо воpдовский файл сохpанить как rtf или html.
  LB> Где здесь pyки пpавить: ?
 
 а хрен его знает :(
 
  LB> #!perl
  LB> use OLE;
  LB> $word = CreateObject OLE 'Word.Application' ||
  LB>         warn 'Couldn`t create instant of Word!\n';
  LB> $word->{visible} = true;
  LB> $word->Documents->Open('1.doc');
  LB>  вот это вобще ничего не сохpаняет:
  LB> $word->ActiveDocument->SaveAs('1.rtf');
  LB>  где здесь впихнyть что сохpанять надо в rtf?
  LB> $word->ActiveDocument->Close;
  LB> $word->Quit;
 
 #!perl -w
 use strict;
 use Win32::OLE;
 use Win32::OLE::Const 'Microsoft Word';
 my $word =  Win32::OLE->new('Word.Application') || warn 'Couldn`t create instant
 of Word!\n';
 
 $word->{Visible} = 1;
 $word->Documents->Open('d:\\tmp\\1.doc');
 $word->ActiveDocument->SaveAs({FileName=>"1.rtf", FileFormat=>wdFormatRTF});
 
 # директорию указать не грех, иначе - в дир. по умочанию
 
 $word->ActiveDocument->Close;
 $word->Quit;
 
 Ежели не хочешь Win32::OLE::Const, значение константы wdFormatRTF == 6
 т.к. FileName и FileFormat - первый и второй параметры, можно написать
 
 $word->ActiveDocument->SaveAs("1.rtf", 6);
 
 ps: для старого Word97 это вполне может и не работать, см доку на Win32::OLE
 
 Alex
 
 --- GoldED/W32 3.0.1
  * Origin: Дурак справедлив, но суров (2:5052/7.39)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    OLE   Leonid Bondarenko   16 Jul 2000 13:08:57   Re: OLE   Alex Lazarev   17 Jul 2000 14:12:29   Re: OLE   RockMover   19 Jul 2000 01:26:47