Word VBA .Find查找空格超出段落范围无限循环问题求解

死循环和查找提前终止的问题来自Word VBA中Range.Find的两个固有特性：

1. 当对Find匹配到的Range执行插入操作时，Range对象会自动扩展，把新插入的内容包含进来，下一次查找如果不手动移动范围起点，会反复定位到同一个空格，触发无限循环。
2. 设置.Wrap = wdFindStop仅能保证查找不超出初始Range边界，但不会自动在匹配后向后推进查找范围——处理完第一个匹配项后，Range停留在第一个匹配位置，查找自然不会继续往后走。
   另外默认的Paragraph.Range会包含段落末尾的回车符，不排除的话很容易匹配到非内容字符，触发意料外的错误。

Private Sub Test()
    Dim RngCurrent As Range
    Dim Para As Paragraph
    
    For Each Para In ActiveDocument.Paragraphs
        ' 初始化当前段落的检索范围，排除末尾段落标记
        Set RngCurrent = Para.Range
        RngCurrent.End = Para.Range.End - 1
        
        ' 显式配置Find参数，避免受历史查找设置影响
        With RngCurrent.Find
            .ClearFormatting
            .Text = " "
            .Forward = True
            .Wrap = wdFindStop ' 强制查找不超出当前设定的Range范围
            .MatchWildcards = False
        
            Do While .Execute
                ' 按空格字间距插入对应标记
                Select Case RngCurrent.Font.Spacing
                    Case Is >= 30
                        RngCurrent.Font.Spacing = 1
                        RngCurrent.InsertAfter "§§"
                    Case Is >= 10
                        RngCurrent.Font.Spacing = 1
                        RngCurrent.InsertAfter "¤"
                End Select
                
                ' 关键操作：将Range折叠到当前处理内容的末尾，避免重复匹配
                RngCurrent.Collapse wdCollapseEnd
                ' 重设范围结束位置，适配插入内容后的段落长度变化
                RngCurrent.End = Para.Range.End - 1
            Loop
        End With
    Next Para
End Sub

• 初始化段落检索范围时，主动把Range的End位置减1，排除末尾的段落回车标记，避免无效匹配。
• 调用Find前显式执行.ClearFormatting，固定设置正向查找、到范围边界即停止的规则，不受用户之前的查找操作遗留设置影响。
• 每次处理完匹配的空格、插入标记后，用RngCurrent.Collapse wdCollapseEnd把Range折叠到当前处理内容的最末尾，再重新绑定Range结束位置到当前段落的真实末尾，保证下一次查找只会从已处理内容的后面继续，既不会回头重复匹配导致死循环，也不会漏过段落里后续的空格。

若只需要处理手动选中的内容而非整个文档，把循环行For Each Para In ActiveDocument.Paragraphs改成For Each Para In Selection.Paragraphs即可，和最初“遍历所选转换后表格内容”的需求匹配。

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