如何避免Word VBA宏处理段落时出现无限循环

你的问题核心是**For Each遍历Paragraphs集合时，修改段落文本会改变集合结构，导致同一段落被反复处理**。当你添加vbCr时，Word会重新计算段落数量，循环会再次扫到刚修改的段落，而修改后的段落依然满足Left(para.Range.Text,6) = "......"的判断条件，最终陷入无限循环。

下面提供两种可靠的解决思路：

方法一：反向遍历段落 #

从最后一段开始往前处理，这样修改前面的段落不会影响已经处理过的后续段落，彻底避免重复遍历问题。

修改后的代码：

Sub Dots()
    Application.ScreenUpdating = False
    Dim doc As Document
    Set doc = ActiveDocument

    Dim i As Long
    ' 从最后一段反向遍历到第一段
    For i = doc.Paragraphs.Count To 1 Step -1
        Dim para As Paragraph
        Set para = doc.Paragraphs(i)
        
        If Left(para.Range.Text, 6) = "......" Then
            If Right(para.Range.Text, 5) = "(NR)" & vbCr Then
                para.Range.Text = String(112, ".") & " (NR)" & vbCr
            ElseIf Right(para.Range.Text, 4) = "..." & vbCr Then
                para.Range.Text = String(122, ".") & vbCr
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

方法二：先将段落存入数组再遍历 #

提前把所有段落对象存入数组，后续修改文档的Paragraphs集合不会影响数组里的对象引用，确保每个段落只被处理一次。

修改后的代码：

Sub Dots()
    Application.ScreenUpdating = False
    Dim doc As Document
    Set doc = ActiveDocument

    ' 先把所有段落存入数组
    Dim paras() As Paragraph
    ReDim paras(1 To doc.Paragraphs.Count)
    Dim i As Long
    For i = 1 To doc.Paragraphs.Count
        Set paras(i) = doc.Paragraphs(i)
    Next i
    
    ' 遍历数组处理每个段落
    For Each para In paras
        If Left(para.Range.Text, 6) = "......" Then
            If Right(para.Range.Text, 5) = "(NR)" & vbCr Then
                para.Range.Text = String(112, ".") & " (NR)" & vbCr
            ElseIf Right(para.Range.Text, 4) = "..." & vbCr Then
                para.Range.Text = String(122, ".") & vbCr
            End If
        End If
    Next para
    Application.ScreenUpdating = True
End Sub

两种方法都能解决无限循环问题，同时保留你添加vbCr避免段落合并的需求。

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