时间戳

首页 > 解决方案 > 在 Word 文档上查找整个单词并替换

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

问题描述

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

MatchWholeWord如果这个词是另一个词的一部分，我已经尝试过，但仍然会改变。

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

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

标签： excelvba

解决方案

推荐阅读