复制 link 的地址

Question

如何将 hyperlink 的地址复制到剪贴板？

使用 "record macro" 选项，我得到这个：

Sub CopyHyperlink()
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select
    Selection.Copy
End Sub

但是，这并没有给我想要的结果。查看图片以比较实际结果和期望结果：

如您所见，我的代码实际上是在复制 link 的文本，而不是地址。

应该是这样的吧

Selection.Range.Hyperlinks(1).Address

但根本不起作用。

如何让它正常工作？

Answer 1

假设你用过Selection因为你是用宏录制器录制的，你应该根据你的作业本改。

插入以下库：

Tools -> References -> Microsoft Forms 2.0 Object Library

并使用以下代码：

Sub CopyHyperlink()
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

clipboard.SetText Selection.Hyperlinks(1).Address
clipboard.PutInClipboard
End Sub

复制 link 的地址

Copy link's address

vba

ms-word

ms-office