vba - 如何强制下划线成为我的 Word 宏中单词的一部分？

Question

我正在尝试为一个非常大的 Word 文档编写一个查找和替换宏。我有一个 Excel 文件，其中包含 4100 多行我想要替换的以前/现在的数据。我可以成功地循环遍历该文件以提取出我正在寻找的单词，以及我想要替换它的单词。但是，我的条目都包含下划线。我遇到的问题是 Word 将下划线视为新词。因此，例如，我想用“雪”替换“苹果”。我希望替换以下示例:“apple”、“apple”、“apple.”、“apple(”。我不希望在以下示例中替换“apple”:“pineapple”、“apple_x” ”。我尝试使用通配符，但在我的示例“apple_x”中发生了什么，它会将其更改为“snow_x”。有人知道如何强制下划线成为单词的一部分吗？谢谢。

这是我目前正在尝试使用的代码:

Sub MeasFindAndReplace()

Dim objExcel, path, filename, i, objFind, objReplace

path = “C:\"

filename = "Test.xls"

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Open path & filename

objExcel.Workbooks(filename).Activate

For i = 2 To 4150

  If StrComp(objExcel.Worksheets("Master").Cells(i, 2), "", 1) = 0 Then

    Exit For

  Else

    objFind = objExcel.Worksheets("Master").Cells(i, 2).Value

    objReplace = objExcel.Worksheets("Master").Cells(i, 3).Value

    RepeatMeasFindAndReplace objFind, objReplace

  End If

Next i

objExcel.Quit

End Sub


Sub RepeatMeasFindAndReplace(objFind, objReplace)

objFind = "<" + objFind + ">"

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

If Not Selection.Information(wdWithInTable) Then

With Selection.Find

     .Text = objFind

     .Replacement.Text = objReplace

     .Forward = True

     .Wrap = wdFindContinue

     .Format = False

     .MatchCase = True

     .MatchWholeWord = True

     .MatchWildcards = True

     .MatchSoundsLike = False

     .MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End If

End Sub

Answer 1

Sub ReplaceJamieLannister()

    Set rng2 = ActiveSheet.UsedRange
    For Each Cell In rng2
    If Left(Cell.Value, 1) = "J" And Mid(Cell.Value, 6, 1) <> "_" Then


    Cell.Replace "Jamie", "King Slayer", xlPart

    End If

    Next Cell

End Sub

之前的数据:

Jamie
Jamie,
Jamie)
Jamie.
Jamie_Lannister
PineJamie

之后的数据:

King Slayer
King Slayer,
King Slayer)
King Slayer.
Jamie_Lannister
PineJamie