2014-10-27 308 views
1

在Word 2013中,使用搜索和替换(启用或未启用通配符),我想在Bye的段落开头处替换每个出现的Hello在Word 2013中,匹配文档开头的通配符

的搜索模式:

^pHello

仅适用于非第一线,并在文档的第一个段落的开头不匹配Hello

如何在文档开头匹配Hello?在Perl中,这将作为s/^Hello/Bye/完成。

回答

1

匹配文档开头的通配符似乎不存在。

我所做的是在文档开始处添加段落标记,执行我的搜索,然后删除段落标记。下面是它在Perl中的外观:

my $word = Win32::OLE->new ('Word.Application', 'Quit') or die $!; 

$word->Selection->HomeKey ({Unit => wdStory}); # to the beginning of the doc 
$word->Selection->TypeText ({Text => "\n"}); # add the ^p 
$word->Selection->HomeKey ({Unit => wdStory}); # to the beginning of the doc 

my $search = $document->Content->Find; 

$search->{Text}    = "^pHello"; 
$search->Replacement->{Text} = "^pBye"; 
$search->Execute(); 

$word->Selection->Delete; # delete the ^p