如何获取超链接首个字符的高亮颜色？VBA代码异常求助

我之前也碰到过这个头疼的问题！你说的返回值9999999其实是Word VBA里的特殊占位值，根源在于超链接的首字符格式被Word的超链接底层样式绑定了——直接通过r.Hyperlinks(i).Range.Characters(1).HighlightColorIndex读取时，会被超链接的默认格式干扰，导致无法获取实际的高亮颜色。

给你两个实用的解决思路：

方法一：复制到临时区域，解除超链接后读取 #

这个方法不会破坏原文档的超链接，只是在内存里处理格式：

Dim originalRange As Range
Dim tempRange As Range
Set originalRange = r.Hyperlinks(i).Range

' 复制原超链接的Range到临时区域
Set tempRange = originalRange.Duplicate
' 删除临时区域的超链接，还原纯文本格式
tempRange.Hyperlinks(1).Delete

' 现在可以正常读取每个字符的高亮颜色了
Dim j As Integer
For j = 1 To tempRange.Characters.Count
    Debug.Print "第" & j & "个字符高亮颜色：" & tempRange.Characters(j).HighlightColorIndex
Next j

' 释放临时对象
Set tempRange = Nothing
Set originalRange = Nothing

方法二：强制刷新首字符的格式读取 #

如果不想复制临时区域，也可以通过触发格式刷新来绕过绑定问题：

Dim hyperlinkRange As Range
Set hyperlinkRange = r.Hyperlinks(i).Range

' 首字符单独处理：复制首字符Range并强制刷新格式
Dim firstCharRange As Range
Set firstCharRange = hyperlinkRange.Characters(1).Duplicate
firstCharRange.Select ' 触发格式刷新（可选但有效）
Debug.Print "首字符高亮颜色：" & firstCharRange.HighlightColorIndex

' 其余字符正常读取
For j = 2 To hyperlinkRange.Characters.Count
    Debug.Print "第" & j & "个字符高亮颜色：" & hyperlinkRange.Characters(j).HighlightColorIndex
Next j

本质上Word的超链接是复合对象，首字符会关联点击区域和默认样式，直接读取时会返回这个特殊占位值；而解除超链接或触发格式刷新后，就能获取到实际的高亮格式了。

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