Word VBA批量为自定义标签包裹的URL添加超链接并删除标签

直接将以下代码添加到你现有宏所在的VBA模块中即可，逻辑和你之前编写的格式批量处理宏完全兼容：

Sub XXX_ProcessHrefLinks()
    Dim matchRng As Range
    Dim urlContent As String
    Const startTag As String = "<LaTeX-href-http>"
    Const endTag As String = "</LaTeX-href-http>"
    
    ' 重置查找规则
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
    ' 配置通配符匹配规则
    With Selection.Find
        .Text = "\<LaTeX-href-http\>(*@)\</LaTeX-href-http\>"
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        .MatchCase = False
        .MatchWholeWord = False
    End With
    
    ' 遍历所有匹配的标签块
    Do While Selection.Find.Execute
        Set matchRng = Selection.Duplicate
        ' 提取标签包裹的纯URL内容
        urlContent = Mid(matchRng.Text, Len(startTag) + 1, _
            Len(matchRng.Text) - Len(startTag) - Len(endTag))
        
        ' 清除原标签和文本
        matchRng.Delete
        ' 插入文本与地址一致的可点击超链接
        ActiveDocument.Hyperlinks.Add _
            Anchor:=matchRng, _
            Address:=urlContent, _
            TextToDisplay:=urlContent
        
        ' 折叠范围到末尾，继续查找下一个匹配项
        matchRng.Collapse wdCollapseEnd
    End Loop
End Sub

使用注意事项 #

• 运行宏前先选中需要处理的文档范围，如需处理全文档可按Ctrl+A全选后再运行
• 若需要将超链接处理整合到你现有的批量格式处理流程中，直接在原有XXX_SmallCaps过程末尾添加Call XXX_ProcessHrefLinks即可
• 处理前建议备份原始文档，避免内容意外丢失
• 代码运行后会自动删除前后的自定义标签，生成的超链接显示文本与跳转地址完全一致

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