如何在Word VBA宏的数组中使用通配符实现选区文本替换？

我之前在论坛求助过strSplit版FindReplace宏的问题，Tim和Paul给出了有用的解答及示例宏。Paul指出，数组方法相较于strSplit方法的优势在于：

• 运行速度更快
• 支持任意长度的文本选区

而我原有的strSplit宏仅能处理单个单词，若选区范围过大，Word会默认替换整个文档而非仅选区内容。

Paul的数组宏在精确匹配场景下表现出色，但我现在需要扩展其功能，在数组中结合通配符使用。例如将“six 23”这类“单词+空格+数字”的字符串替换为无空格的连续数字（如“623”）。

现有strSplit结合通配符的示例代码 #

以下代码在单个选区下运行良好，但选中多行文本时，因使用Replace:=wdReplaceOne指令仅能替换一处匹配；若改为Replace:=wdReplaceAll并移除判断语句，则会替换整个文档：

Sub ecNUM_WSN_NumColNum()

Application.ScreenUpdating = False
Dim Char As String
Call ClearFindAndReplaceParameters

'use const for fixed values
    Const StrFind = "([Oo]ne) ([0-9]),([Tt]wo) ([0-9]),([Tt]hree) ([0-9])," & _
        "([Ff]our) ([0-9]),([Ff]ive) ([0-9]),([Ss]ix) ([0-9]),([Ss]even) ([0-9])," & _
        "([Ee]ight) ([0-9]),([Nn]ine) ([0-9]),([Tt]en) ([0-9])"
    Const StrRepl = "1:\2,2:\2,3:\2,4:\2,5:\2,6:\2,7:\2,8:\2,9:\2,10:\2"
    
    Dim arrF, arrR, I As Long
    
    arrF = Split(StrFind, ",")
    arrR = Split(StrRepl, ",")

    Debug.Print "Checking: " & Selection.Text
    For I = LBound(arrF) To UBound(arrF)
        With Selection.Find
            .Text = arrF(I)
            .MatchWildcards = True
            .Replacement.Text = arrR(I)
            .Wrap = wdFindStop
            .IgnorePunct = True
            .IgnoreSpace = True
        If .Execute(Replace:=wdReplaceOne) Then Exit For  'found one!'
            Selection.Find.Execute Replace:=wdReplaceOne
        End With
    Next I
    
Call ClearFindAndReplaceParameters
Selection.Collapse Direction:=wdCollapseEnd
Char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
Application.ScreenUpdating = True
End Sub

Paul提供的精确匹配数组宏（支持任意长度选区） #

该宏仅适用于精确匹配场景：

Sub ReplaceNextOrdinal()
Application.ScreenUpdating = False
Dim ArrFnd As Variant, ArrRep As Variant, RngFnd As Range, i As Long
'Array of Find expressions
ArrFnd = Array("first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eighth", "ninth", "tenth")
ArrRep = Array("1st", "2nd", "3rd", "4th", "5th", "6th", "7th", "8th", "9th", "10th")
Set RngFnd = ActiveDocument.Range(Selection.Words.First.Start, Selection.Words.Last.End)
For i = 0 To UBound(ArrFnd)
  With RngFnd.Duplicate
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .IgnorePunct = True
      .IgnoreSpace = True
      .MatchWholeWord = True
      .Text = ArrFnd(i)
    End With
    Do While .Find.Execute
      If .InRange(RngFnd) Then
        .Text = ArrRep(i)
        .Start = .Characters.Last.Previous.Start
        .Font.Superscript = True
      Else
        Exit Do
      End If
    Loop
  End With
Next i
Application.ScreenUpdating = True
End Sub

我的修改尝试（未成功） #

我尝试将上述精确匹配宏修改为通配符版本，但要么出现大量编译错误，要么编译通过但无执行效果。以下是移除Do While循环后的最新尝试（我认为仍需保留循环，但代码始终报错）：

Sub ecNUM_WSN_NumColNum_ARRAY()
Application.ScreenUpdating = False
Dim ArrFnd As Variant, ArrRep As Variant, RngFnd As Range, I As Long

'Array of Find expressions
ArrFnd = Array("([Oo]ne) ([0-9])", "([Tt]wo) ([0-9])", "([Tt]hree) ([0-9])", _
    "([Ff]our) ([0-9])", "([Ff]ive) ([0-9])", "([Ss]ix) ([0-9])", _
    "([Ss]even) ([0-9])", "([Ee]ight) ([0-9])", "([Nn]ine) ([0-9])", _
    "([Tt]en) ([0-9])", "([Ee]leven) ([0-9])", "([Tt]welve) ([0-9])", _
    "([Tt]hirteen) ([0-9])", "([Ff]ourteen) ([0-9])", "([Ff]ifteen) ([0-9])", _
    "([Ss]ixteen) ([0-9])", "([Ss]eventeen) ([0-9])", "([Ee]ighteen) ([0-9])", _
    "([Nn]ineteen) ([0-9])")
ArrRep = Array("1\2", "2\2", "3\2", "4\2", "5\2", "6\2", "7\2", "8\2", "9\2", _
    "10\2", "11\2", "12\2", "13\2", "14\2", "15\2", "16\2", "17\2", "18\2", "19\2")

Set RngFnd = ActiveDocument.Range(Selection.Words.First.Start, Selection.Words.Last.End)
Call ClearFindAndReplaceParameters
For I = 0 To UBound(ArrFnd)

  With RngFnd.Duplicate
        With .Find
            .Text = ArrFnd(I)
            .MatchWildcards = True
            .Replacement.Text = ArrRep(I)
            .Wrap = wdFindStop
            .IgnorePunct = True
            .IgnoreSpace = True
              End With
            RngFnd.Find.Execute Replace:=wdReplaceAll
    End With
Next I
Application.ScreenUpdating = True
End Sub

最终需求 #

我计划将数十个包含数千行代码的基础FindReplace步骤宏转换为更简洁的strSplit或数组版本，其中：

• 部分宏用于手动编辑时的小范围选区替换
• 部分宏用于无需人工干预的全局替换

需要针对这两种场景分别编写可行的解决方案。

内容的提问来源于stack exchange，提问作者HappyNanaMO