遍历Word文档段落（跳过前3段）时溢出错误的原因排查

我有一批结构固定的MS Word文档：前3段是标题和两个空段落，后续每个段落由制表符分隔成三部分——角色名、时间码、台词，要求角色名不能包含空格（比如John Doe要改成JohnDoe）。我写了下面这段VBA子过程：

Sub RemoveSpacesFromCharacterNames()

' Counter variable to track the paragraph number
Dim paragraphCounter As Integer

' Loop through each paragraph in the document
For Each p In ActiveDocument.Paragraphs

' Increment the counter variable
paragraphCounter = paragraphCounter + 1

' Check if the paragraph is the first three paragraphs
If paragraphCounter > 3 Then

' Check if the paragraph contains three parts separated by tabs
If Split(p.Range.Text, vbTab).Count = 3 Then
    Dim charName As String, timeCode As String, dialogue As String
    charName = Split(p.Range.Text, vbTab)(0)
    timeCode = Split(p.Range.Text, vbTab)(1)
    dialogue = Split(p.Range.Text, vbTab)(2)

    ' Remove any spaces from the character name
    charName = Replace(charName, " ", "")

    ' Reconstruct the paragraph with the updated character name
    p.Range.Text = charName & vbTab & timeCode & vbTab & dialogue
End If
End If
Next p
End Sub

但运行时Word直接崩溃，提示第9行（paragraphCounter = paragraphCounter + 1）溢出，而且程序会卡在charName = Replace(charName, " ", "")这一行。我的测试文档只有5个段落（3个前置段落+2个目标段落），请问是什么原因导致了无限循环？

核心原因：修改段落文本触发动态集合变化，导致For Each循环无限迭代 #

Word VBA中的ActiveDocument.Paragraphs是动态集合——当你执行p.Range.Text = ...修改段落内容时，会触发以下问题：

• 修改文本时会覆盖原段落的段落标记（vbCr），Word会自动补全新的段落标记，这个操作会让当前段落被重新识别，导致For Each循环的迭代器反复处理同一个段落，形成无限循环
• 每次循环都会让paragraphCounter自增，而Integer类型的最大值是32767，无限循环很快会让计数器超出范围，触发溢出错误

同时代码还有两个细节问题加剧了异常：

1. Split函数的判断逻辑错误：VBA的Split返回的是数组，没有Count属性，Split(p.Range.Text, vbTab).Count会触发隐式错误，导致后续逻辑异常
2. 未正确处理段落标记：p.Range.Text包含段落末尾的vbCr，拆分后dialogue会携带这个标记，重新拼接时若处理不当，会进一步打乱段落集合的结构

修复方案 #

改用反向循环（从最后一段往前遍历）避免动态集合的迭代问题，同时修正细节错误：

Sub RemoveSpacesFromCharacterNames()
    Dim paragraphCounter As Integer
    Dim totalParagraphs As Integer
    
    totalParagraphs = ActiveDocument.Paragraphs.Count
    ' 从最后一段往前循环，避开动态集合修改的影响
    For paragraphCounter = totalParagraphs To 4 Step -1
        Dim p As Paragraph
        Set p = ActiveDocument.Paragraphs(paragraphCounter)
        
        Dim parts As Variant
        parts = Split(p.Range.Text, vbTab)
        ' 用UBound判断是否拆分出3个有效部分（数组下标从0开始）
        If UBound(parts) = 2 Then
            Dim charName As String, timeCode As String, dialogue As String
            charName = Replace(parts(0), " ", "")
            timeCode = parts(1)
            ' 移除dialogue末尾的段落标记，之后重新添加
            dialogue = Left(parts(2), Len(parts(2)) - 1)
            
            ' 重新拼接并保留段落标记，确保段落结构稳定
            p.Range.Text = charName & vbTab & timeCode & vbTab & dialogue & vbCr
        End If
    Next paragraphCounter
End Sub

内容的提问来源于stack exchange，提问作者O Tal Antiquado