求助：如何编写可在MS Word中粘贴超链接的VBA宏

原有代码存在的问题 #

使用ActiveDocument.Content.InsertAfter追加文本的逻辑，仅会将URL字符串作为普通纯文本写入文档，不会生成可交互跳转的超链接对象。这种写入方式不会触发Word的自动超链接识别机制，因此无法得到可点击的跳转效果。

修改后可直接运行的代码 #

Sub test()
    Dim linkAddress As String
    Dim insertRange As Range
    ' 配置需要插入的超链接目标地址
    linkAddress = "https://docs.google.com/xxxxxx"
    ' 定位到文档末尾作为插入位置
    Set insertRange = ActiveDocument.Content
    insertRange.Collapse Direction:=wdCollapseEnd
    ' 生成标准可点击超链接
    ActiveDocument.Hyperlinks.Add _
        Anchor:=insertRange, _
        Address:=linkAddress, _
        TextToDisplay:=linkAddress
End Sub

功能细节说明 #

• 插入位置通过Collapse方法将文本范围收拢到文档末尾，写入内容时不会覆盖文档已有的存量内容
• 核心调用ActiveDocument.Hyperlinks.Add方法生成的是Word原生超链接对象，自带系统默认的蓝色下划线可点击格式，和手动粘贴生成的超链接效果完全一致
• 如果需要自定义文档内的显示文本，无需修改目标跳转地址，只要调整TextToDisplay参数的取值即可。比如将参数值设为“在线文档入口”，文档内就会显示对应文字，点击后仍会跳转到预先配置的URL地址

内容的提问来源于stack exchange，提问作者Bùi Thu Thảo