查找并替换DOC文档Perl中的单词

Question

我有很多Microsoft Word文档，并希望找到并替换一个单词，例如

找到香蕉这个词替换为 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();

结合VB文档阅读Win32 :: OLE文档以获得更好/更多信息。

您可能还会在this page感兴趣的底部找到“Multireplace”工具。