Word宏如何获取含#!的完整超链接地址并修改链接格式

问题原因 #

Word的Hyperlink.Address属性仅返回URL中#符号之前的内容，#及后续部分会被单独存储在Hyperlink.SubAddress属性里，直接读取Address自然会导致URL截断。

完整解决方案代码 #

Sub FixLibraryLinks()
    Dim link As Hyperlink
    Dim fullUrl As String
    Dim newUrl As String
    
    ' 遍历文档所有超链接
    For Each link In ActiveDocument.Hyperlinks
        ' 拼接完整URL：Address + #! + SubAddress（SubAddress不含#!/前缀）
        If link.SubAddress <> "" Then
            fullUrl = link.Address & "#!/" & link.SubAddress
        Else
            fullUrl = link.Address
        End If
        
        ' 匹配目标链接格式并替换前缀
        If InStr(fullUrl, "https://www.library/#!/") > 0 Then
            newUrl = Replace(fullUrl, "https://www.library/#!/", "https://www.library2/")
            ' 更新超链接，新URL无#，直接赋值给Address并清空SubAddress
            link.Address = newUrl
            link.SubAddress = ""
        End If
        
        ' 针对你提供的临床资源链接示例，可添加批量处理规则
        If InStr(fullUrl, "https://www-clinicalkey-com.proxy.library.emory.edu/#!/") > 0 Then
            newUrl = Replace(fullUrl, "https://www-clinicalkey-com.proxy.library.emory.edu/#!/", "https://新的临床资源域名/")
            link.Address = newUrl
            link.SubAddress = ""
        End If
    Next link
End Sub

代码说明 #

• 获取完整URL：当SubAddress不为空时，将Address、#!/和SubAddress拼接，还原被截断的完整链接；若SubAddress为空则直接使用Address。
• 链接替换逻辑：用Replace函数替换原链接的前缀（包含#!/）为目标前缀，随后更新超链接的Address并清空SubAddress，保证新链接能正常跳转。
• 扩展处理：可根据实际需求添加更多链接格式的判断和替换规则。

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