Word VBA：超链接转尾注显示URL（解决类型不匹配错误）

核心修改 #

将原代码中Rng.Endnotes(1).Range.FormattedText相关的赋值逻辑，替换为直接设置尾注的文本内容为超链接的URL：

' 假设已获取目标超链接对象objHyperlink
Rng.Endnotes(1).Range.Text = objHyperlink.Address

问题根源解释 #

1. 原代码显示链接文本而非URL：FormattedText属性的作用是复制带格式的Range内容，会把原超链接的显示文本连同格式一起导入尾注，完全不符合显示URL的需求。
2. 类型不匹配错误：.Address是字符串类型，而FormattedText要求赋值的是Range对象，两者类型不兼容导致报错。直接给.Text属性赋值字符串则完全匹配类型要求。

更简洁的实现方式 #

其实可以在插入尾注时直接指定URL为尾注文本，无需后续修改尾注内容，示例代码片段：

Dim objHyperlink As Hyperlink
Dim linkRange As Range

For Each objHyperlink In ActiveDocument.Hyperlinks
    Set linkRange = objHyperlink.Range
    ' 在超链接位置插入尾注，直接将URL设为尾注文本
    linkRange.Endnotes.Add Range:=linkRange, Text:=objHyperlink.Address
    ' 如需移除原文本的超链接格式，可添加以下一行
    ' objHyperlink.Delete
Next objHyperlink

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