Word VBA：移除超链接旁附加URL的蓝色、加粗及下划线格式求助

嗨，我完全懂你的困扰——现在你附加在超链接后面的URL继承了原超链接的格式，看着和链接文本没区别，确实影响可读性。咱们可以调整你的VBA代码，在插入URL之后单独给它设置普通文本格式，把那些蓝色、加粗、下划线都去掉。

这里是修改后的代码：

Dim oLink As Hyperlink
Dim strText As String
Dim strLink As String
Dim insertRange As Range ' 用来存储插入的URL所在的范围

For Each oLink In ActiveDocument.Hyperlinks
    Let strText = oLink.Range.Text
    Let strLink = oLink.Range.Hyperlinks(1).Address
    
    ' 定位到超链接文本的末尾，准备插入URL
    Set insertRange = oLink.Range.Duplicate
    insertRange.Collapse Direction:=wdCollapseEnd
    insertRange.InsertAfter " (" & strLink & ")"
    
    ' 精准选中刚插入的URL部分（包括括号），调整格式
    With insertRange
        .Start = insertRange.Start + Len(strText) + 2 ' 跳过原超链接文本、空格和左括号
        .End = insertRange.End ' 到右括号的位置
        With .Font
            .Bold = False ' 取消加粗
            .Underline = wdUnderlineNone ' 移除下划线
            .ColorIndex = wdAuto ' 恢复默认字体颜色（也可以用wdBlack指定黑色）
        End With
    End With
Next oLink

Set oLink = Nothing
Set insertRange = Nothing ' 释放内存变量

简单说下思路：新增的insertRange变量帮我们跟踪插入的URL位置，插入完成后，我们精准定位到这段新文本，然后通过Font对象逐一取消那些不需要的格式属性。这样新添加的URL就会变成普通文本样式，和原超链接区分开了。

备注：内容来源于stack exchange，提问作者Dingleberry