Replace with whole word match only?

Try:

Option Explicit

Sub Test()

Dim cell As Range

For Each cell In Range("A1:A10")
    cell = Replace(cell, " 1 ", " ONE ")
    cell = Replace(cell, " 2 ", " TWO ")
Next 'cell

End Sub

Not really sure what you are trying to achieve or why but maybe this will help

Sub Test_2()

Dim StringA As String
Dim FinalStringA As String

Dim vArray
vArray = Array("There is 1 line of text here", "There are 2 lines of text here")
Dim vArrayFind
vArrayFind = Array(" 1 ", " 2 ")
Dim vArrayReplace
vArrayReplace = Array(" ONE ", " TWO ")

Dim i As Long

For i = LBound(vArray) To UBound(vArray)
'There is ONE line of text here
    StringA = vArray(i)
    FinalStringA = Replace(StringA, vArrayFind(i), vArrayReplace(i))
    MsgBox FinalStringA
Next 'i

End Sub

TMS, thank you, will check that out as well.

To add a little meat to the request, I'm building a tool that compares two documents, which are different versions of transcripts from audio calls, and assigning a score to them based on the content of one "golden" version. At this point in the process, I have two text strings (StringA and StringB) that I'm normalizing before tokenizing and dumping into a pair of columns on the spreadsheet.

So what I'm trying to do in this phase is remove score deductions we don't really care about, like when Transcript A has "There is 1 line of text here" and the Transcript B has "There is ONE line of text here"

I have a hidden sheet that has 132 values and their replacements (besides numbers, there are contractions and a few other terms I want to swap out).

Since these transcripts will be between 20 and 50,000 words each, I think looping through the cells to replace may add a bit too much time, but I haven't finished making the adjustments to the first code bit you provided to test that out.

Thanks again for your guidance!

Yo should loop through your list of words and use global replace for each pair.