Как применить форматирование к определенному слову в файле docx, используя Win32 :: Ole в Perl?
Например, мой файл docx содержит следующие предложения:
Это пример Perl
Это пример Python
Это еще один пример Perl
Я хочу применить жирный стиль ко всем вхождениям слова «Perl» следующим образом:
ЭтоPerl пример
Это пример Python
Это другоеPerl пример
Я до сих пор придумал следующий скрипт:
use strict; use warnings;
use Win32::OLE::Const 'Microsoft Word';
my $file = 'E:\test.docx';
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->{'Visible'} = 0;
my $doc = $Word->Documents->Open($file);
my $paragraphs = $doc->Paragraphs() ;
my $enumerate = new Win32::OLE::Enum($paragraphs);
while(defined(my $paragraph = $enumerate->Next())) {
my $text = $paragraph->{Range}->{Text};
my $sel = $Word->Selection;
my $font = $sel->Font;
if ($text =~ /Perl/){
$font->{Bold} = 1;
}
$sel->TypeText($text);
}
$Word->ActiveDocument->Close ;
$Word->Quit;
Но он применил жирный стиль ко всему абзацу и не редактирует предложения в их первоначальном месте. Это дает мне как модифицированную версию, так и оригинальную версию, как это:
Это пример Perl
Это пример Python
Это еще один пример Perl
Это пример Perl
Это пример Python
Это еще один пример Perl
Как я должен исправить мою проблему. Есть указатели? Спасибо как всегда :)
ОБНОВИТЬ
Задача решена! Большое спасибо@Zaid, а также@cjm :)
Вот код, который прекрасно работает:
while ( defined (my $paragraph = $enumerate->Next()) ) {
my $words = Win32::OLE::Enum->new( $paragraph->{Range}->{Words} );
while ( defined ( my $word = $words->Next() ) ) {
my $font = $word->{Font};
$font->{Bold} = 1 if $word->{Text} =~ /Perl/;
}
}