将Word超链接转换为MediaWiki兼容格式的VB宏优化需求

问题背景 #

将Word文档中的超链接复制到MediaWiki时，超链接会被自动剥离。现有Demo宏虽能转换格式，但会生成重复文本：比如将<a href="https://stackoverflow.com/">这样的链接</a>转换为[https://stackoverflow.com/ 此处为链接文本] 此处为链接文本，而MediaWiki的正确格式应为[链接地址 显示文本]。另外尝试的修复宏会触发运行时错误。

正确VB宏代码 #

Sub ConvertHyperlinksToMediaWiki()
    Dim doc As Document
    Dim hyperlink As Hyperlink
    Dim wikiText As String
    Dim i As Integer
    
    Set doc = ActiveDocument
    
    ' 倒序处理超链接，避免正序操作时索引混乱
    For i = doc.Hyperlinks.Count To 1 Step -1
        Set hyperlink = doc.Hyperlinks(i)
        
        ' 构建符合MediaWiki规范的链接文本
        wikiText = "[" & hyperlink.Address & " " & hyperlink.TextToDisplay & "]"
        
        ' 替换整个超链接区域为新文本，自动清除原超链接
        hyperlink.Range.Text = wikiText
    Next i
End Sub

代码说明 #

1. 倒序处理：从最后一个超链接开始往前处理，避免正序操作时删除超链接后，后续超链接的索引偏移导致遗漏。
2. 直接替换Range：将超链接的整个文本区域直接替换为MediaWiki格式的字符串，既完成格式转换，又自动清除原超链接，不会留下重复的显示文本。
3. 避免运行时错误：无需额外调用Delete方法，替换文本后原超链接对象已被转换为普通文本，不会触发对象失效的错误。

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