Word VBA如何查找替换部分位于超链接内外的字符串

Word原生查找功能无法直接匹配部分位于超链接内、部分位于超链接外的字符串，因为超链接属于独立的内容对象，会将文本分割为不同的逻辑块打断匹配。你可以使用以下修改后的VBA代码实现需求：

Sub 跨超链接替换文本为水平线()
    Dim doc As Document
    Dim searchRange As Range
    Dim targetText As String
    Dim lineShape As InlineShape
    
    ' 初始化参数，目标文本可按需修改
    Set doc = ActiveDocument
    targetText = "Add a comment " & Chr(13) ' 对应要匹配的文本加回车
    
    ' 先创建水平线存入剪贴板
    Set searchRange = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
    Set lineShape = searchRange.InlineShapes.AddHorizontalLineStandard
    searchRange.MoveStart wdCharacter, -1
    searchRange.Cut
    ' 删除插入水平线自动生成的空段落
    searchRange.Delete
    
    ' 遍历文档匹配跨节点文本
    Set searchRange = doc.Content
    With searchRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = targetText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        ' 关键配置：忽略格式节点间隔，允许跨超链接、域等内容块匹配
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .IgnorePunct = True
        .IgnoreSpace = True
        Do While .Execute
            ' 匹配到后直接替换为剪贴板里的水平线
            searchRange.Text = ""
            searchRange.Paste
            ' 移动搜索范围避免重复匹配
            searchRange.Collapse wdCollapseEnd
        Loop
    End With
End Sub

注意事项 #

• 代码默认处理当前打开的整个文档，如需限定范围可修改searchRange的初始赋值
• 如果目标匹配文本有变化，直接修改targetText变量的取值即可
• 执行代码前建议先备份文档，避免误操作丢失内容

内容的提问来源于stack exchange，提问作者vlp-1