在 DOC 文档 Perl 中查找和替换单词

Question

我有一堆 Microsoft Word 文档，并且想要查找和替换一个单词，例如

找到banana这个词替换成apple

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”工具很有趣。