Question

我有Excel VBA代码来查找和替换Word Document中的单词。我有一个要在excel（第1列）中找到的单词列表，并将其替换为第2列中找到的其他单词。但是我的问题是我只需要找到匹配的整个单词，例如hap我只需要替换所有单词hap，但是在我的代码中它也替换诸如Chapter之类的单词。

我已经尝试过将MatchWholeWord设为true，但是如果该单词是另一个单词的一部分，我仍然会更改。

wDoc.Application.Selection.Find.ClearFormatting
    wDoc.Application.Selection.Find.Replacement.ClearFormatting

    For i = 2 To lr

        With wDoc.Application.Selection.Find

            .Text = ws.Cells(i, 1).Value
            .Replacement.Text = ws.Cells(i, 2).Value
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False

        End With

        wDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll

    Next

我希望我的结果找到完全匹配的单词，而不是单词的一部分。谁能帮我这个。谢谢

查找整个单词并在Word文档上替换

0 个答案: