包括Word 2013中参考书目的超链接

我正在努力在我的Word生成的参考书目中添加超链接（我使用word 2013）。我提出了以下解决方案（我从Raystafarian的回答中借用了一些代码来查找文本的所有实例并使其成为带宏的超链接）

Sub Add_Hyperlinks_Bibliography()
On Error Resume Next
Set rngSearch = ActiveDocument.Range
For I = 1 To ActiveDocument.Bibliography.Sources.Count
   strStyle = "Intensieve benadrukking"
   strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL")
   strAddress = strSearch
   With rngSearch.Find
      Do While .Execute(findText:=strSearch) = True
          With rngSearch 'we will work with what is found as it will be the selection
              ActiveDocument.Hyperlinks.Add Anchor:=rngSearch, Address:=strAddress
            .Style = ActiveDocument.Styles(strStyle) 'throw the style on it after the link
        End With
        rngSearch.Collapse Direction:=wdCollapseEnd
        'keep it moving
    Loop
 End With
Next I
On Error GoTo 0
Set rngSearch = Nothing
End Sub

这似乎适用于大多数来源，但不幸的是（我无法解释为什么会发生这种情况），对于某些来源，他似乎并没有将URL更改为超链接。如果我手动搜索URL，我确实找到了它。也许任何人都可以解释为什么某些实例中的代码不会通过超链接替换URL？

我在网站上搜索了类似的问题，并且只找到了这个帖子：包括Microsoft Word 2013引用中的超链接，没有回复。