查找和替換DOC文檔中的單詞Perl

Question

我有一堆Microsoft Word文檔，並且想要查找和替換單詞，例如，

查找單詞香蕉與蘋果

Answer 1

你可以使用Win32::OLE更換。

看來你的互動看起來大約像這樣（沒有經過充分測試）：

use Win32::OLE; 

my $word = Win32::OLE->new('Word.Application') or die "Could not find Word.\n"; 

my $doc = $word->Documents->Open($filename); 
my $content = valof $doc->{Content}; 
$content =~ s/banana/apple/g; 
$doc->{Content} = $content; 
$doc->Save(); 
$doc->Close(); 
$word->Quit(); 

閱讀的Win32 :: OLE文檔連同更好/更多信息的VB文件。

您可能還會在this page的底部找到有趣的工具「Multireplace」。