如何正确终止Word VBA宏（避免误判段落结束符为文档末尾）

问题根源 #

你原来用的Loop Until Selection.Text = ActiveDocument.Range.Characters.Last存在两个核心问题：

1. ActiveDocument.Range.Characters.Last在文档末尾为段落标记时，返回的是段落标记字符，若Selection.Text刚好匹配该标记，会导致循环提前终止；
2. 部分场景下（比如文档末尾是空白段落），该属性可能返回空值，直接导致条件判断失效。

替代终止方案 #

方案1：保留Selection操作，通过位置判断终止

直接对比Selection.Start与文档总长度，循环直到光标位置抵达文档末尾：

' 替换原有Loop语句，用Do While实现
Do While Selection.Start < ActiveDocument.Range.End
    ' 你的宏核心处理代码（比如查找、格式修改逻辑）
    ' 示例：将光标移动到下一个字符
    Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop

也可以用Until版本：

Do
    ' 你的宏核心处理代码
    Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop Until Selection.Start >= ActiveDocument.Range.End

该方法直接判断光标位置，不会被段落标记干扰，彻底避免字符匹配的问题。

方案2：摒弃Selection，直接遍历Range对象（更高效可靠）

Selection操作不仅容易出错，运行效率也偏低。可以直接操作文档Range对象，无需依赖选中状态，同时还能覆盖正文和脚注：

Sub sierotkiTXT_select()
    Dim docRange As Range
    Dim currentChar As Range
    
    ' 处理正文内容
    Set docRange = ActiveDocument.Content
    Set currentChar = docRange.Characters(1)
    
    Do While currentChar.Start < docRange.End
        ' 在这里添加你的字符处理逻辑
        ' 示例：打印当前字符内容
        Debug.Print currentChar.Text
        
        ' 移动到下一个字符
        Set currentChar = docRange.Characters(currentChar.Start - docRange.Start + 2)
    Loop
    
    ' 处理脚注内容（如果需要）
    Dim fn As Footnote
    For Each fn In ActiveDocument.Footnotes
        Set docRange = fn.Range
        Set currentChar = docRange.Characters(1)
        
        Do While currentChar.Start < docRange.End
            ' 脚注内的字符处理逻辑
            Debug.Print currentChar.Text
            Set currentChar = docRange.Characters(currentChar.Start - docRange.Start + 2)
        Loop
    Next fn
End Sub

这种方式直接操作文档对象，不受选中状态影响，能准确覆盖所有需要处理的内容。

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