怎样复制一个页面含有文字的超链接？

这个附件是Nobody的高清mv，请教各位如何通过宏复制整个页面的链接？

可试试如下代码：
Sub test()
    Dim Hpl As Hyperlink, info As String
    For Each Hpl In ActiveDocument.Hyperlinks
        info = info & Hpl.Address & vbCrLf
    Next
    Documents.Add.Content = info
'    MsgBox info
End Sub