主页 / 问题 / 672830
Accepted
Nikolay.OAMP
Asked:2020-05-30 19:44:52 +0000 UTC2020-05-30 19:44:52 +0000 UTC

整个短语替换宏。微软Word

  • 772

原始文本看起来像这样：

一个 bc ab

您需要将其替换а b为a bc发生的情况：

一个公元前一个公元前

但是当你更换它时，你会得到：

一个 bcc 一个 bc

使用的代码：

With Selection.Find
    .Forward = True
    .ClearFormatting
    .Text = "a b"
    .MatchWholeWord = True
    .MatchCase = True
    .Replacement.Text = "a bc"
End With
Selection.Find.Execute Replace := wdReplaceAll

我如何进行搜索以替换“与查询中完全相同”？

vba

1 个回答

  1. Best Answer

    添加.MatchSuffix = True

    With Selection.Find
    .Forward = True
    .ClearFormatting
    .Text = "a b"
    .MatchSuffix = True
    .MatchCase = True
    .Replacement.Text = "a bc"
End With
Selection.Find.Execute Replace := wdReplaceAll

    使用通配符的第二个选项

    .Text = "a b>"
.MatchWildcards = True
    • 1

相关问题