VB.NET中如何移除Word文档指定Range内的非下划线字符？

问题背景 #

需要在Word文档的特定Range对象中删除所有非下划线字符，尝试两种方法均失败：

1. 反向遍历Range删除非下划线字符时，调用rng.Characters(i)触发索引越界错误，原因是删除操作导致Range动态收缩，索引与当前字符数量不匹配。
2. 使用Range.Find替换时，操作范围超出指定Range，原因是未正确配置Find参数，导致匹配范围失控。

错误方法分析 #

方法一：反向遍历的问题 #

原代码直接遍历原Range的Characters集合，删除字符后Range实时收缩，后续循环的索引i会大于当前Range的字符总数，触发越界错误。

方法二：Find替换的问题 #

原代码中Find.Text设为空，未启用通配符，Word会匹配整个符合格式的文本块而非单个字符，且未精准限定查找范围，导致修改超出目标Range。

可行解决方案 #

方案一：提取并保留下划线字符（保留格式） #

先遍历原Range收集所有带下划线的字符（含格式），再替换原Range内容：

Private Function RemoveNonUnderlinedCharacters(rng As Range) As Range
    Dim tempDoc As Document
    Dim tempRng As Range
    
    ' 创建临时文档存储需要保留的内容
    Set tempDoc = Documents.Add
    Set tempRng = tempDoc.Range
    
    ' 遍历原Range，复制下划线字符到临时Range
    Dim i As Long
    For i = 1 To rng.Characters.Count
        With rng.Characters(i)
            If .Font.Underline <> WdUnderline.wdUnderlineNone Then
                tempRng.FormattedText = .FormattedText
                Set tempRng = tempRng.Next
            End If
        End With
    Next i
    
    ' 将临时内容替换回原Range
    rng.FormattedText = tempRng.FormattedText
    tempDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    Set RemoveNonUnderlinedCharacters = rng.Duplicate
End Function

方案二：修正Find替换逻辑（高效批量处理） #

启用通配符匹配单个字符，精准限定查找范围在目标Range内：

Private Function RemoveNonUnderlinedCharacters(rng As Range) As Range
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Underline = WdUnderline.wdUnderlineNone
        .Text = "^?" ' 通配符匹配任意单个字符
        .Replacement.Text = ""
        .Wrap = WdFindWrap.wdFindStop ' 仅在当前Range内查找，不循环
        .MatchWildcards = True
        .Forward = True
        .Execute Replace:=WdReplace.wdReplaceAll
    End With
    
    Set RemoveNonUnderlinedCharacters = rng.Duplicate
End Function

说明 #

• 方案一适合需要完整保留原下划线格式的场景，通过临时文档中转避免Range动态变化的问题。
• 方案二更高效，适合大文本范围处理，利用Word的Find/Replace批量操作，性能优于逐个遍历。

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