Word VBA实现小数前补0时漏匹配、死循环的代码错误排查

需要实现Word文档内以小数点开头的小数值前自动插入0的功能，编写的VBA过程运行时存在匹配项被跳过、程序进入死循环的异常，需定位错误并修正。
原有问题代码如下：

Public Sub addzerobfrdecimal()     

cleanfnd
Selection.find.Execute findtext:="([.][0-9]{1,}[\ ])", MatchWildcards:=True, Forward:=True
St = Selection.RANGE.Start
ed = Selection.RANGE.End
ActiveDocument.RANGE(St, ed).Select
If Selection.find.found Then
Selection.find.Execute findtext:="([.][0-9]{1,}[\ ])", ReplaceWith:="0\1", replace:=wdReplaceOne
Selection.MoveRight wdCharacter, 1
Selection.find.Execute findtext:="([.][0-9]{1,}[\ ])", MatchWildcards:=True, Forward:=True
Else
MsgBox "Unable to find the occurance", vbCritical
End If
End Sub

• 匹配规则缺陷：查找规则强制要求小数点后的数字后必须跟随空格，会漏掉小数位于段落末尾、后接标点（逗号、句号、括号等）的场景，是匹配项被跳过的主要原因。
• 循环逻辑缺失：代码没有设置遍历全文的循环结构，也没有设置查找终止条件，执行到文档末尾后会反复触发无效查找，最终进入死循环。
• 未定义过程调用：开头的cleanfnd过程没有给出实现，运行时会直接抛出子程序未定义的错误，也无法实现清空查找格式的预期效果。
• 查找逻辑冗余：第一次找到匹配项后，又重复执行了一次查找操作，会直接跳过当前待替换的匹配项，定位到下一个结果，进一步加剧漏匹配问题。
• 范围设置错误：默认仅在当前选中的范围内查找，没有默认覆盖全文，且没有重置查找的格式、匹配参数，会继承之前用户手动设置的查找规则，导致匹配结果不可控。

Public Sub AddZeroBeforeDecimal()
    Dim searchRng As Range
    ' 指定查找范围为当前文档全文
    Set searchRng = ActiveDocument.Content
    
    ' 统一配置查找替换参数
    With searchRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop ' 查找到文档末尾即终止，避免死循环
        .Text = "<.[0-9]@" ' 匹配单词起始位置的小数点+1位及以上数字，不限制后续字符类型
        .Replacement.Text = "0^&" ' ^&指代匹配到的原始内容，无需分组引用，稳定性更高
    End With
    
    ' 循环替换所有匹配项，替换完成后自动折叠范围避免重复匹配
    Do While searchRng.Find.Execute(Replace:=wdReplaceOne)
        searchRng.Collapse wdCollapseEnd
    Loop
    
    MsgBox "所有符合规则的小数前已自动补0", vbInformation
End Sub

代码说明：使用Range对象替代Selection对象执行查找替换，不会因为光标移动、用户选中范围变化导致结果异常；通配符<匹配单词起始位置，避免误匹配句子中间出现的小数点（比如版本号v1.2里的小数点不会被误判）。

内容的提问来源于stack exchange，提问作者Balasubramaniyan-mac