☰

在 Microsoft Word 2013 引用中包含超链接

tag-icon • tag-icon microsoft-word hyperlink citations bibliography
在 Microsoft Word 2013 引用中包含超链接

我正在使用 Microsoft Word 中的引文功能，并在文档末尾创建参考文献列表。生成的参考文献示例如下：

  1. USDOT。ITS 福利数据库。ITS 知识资源。[在线] [引用日期：2016 年 7 月 6 日。] www.itsbenefits.its.dot.gov。

有没有办法让 URL (www.itsbenefits.its.dot.gov) 成为自动生成的超链接，就像我在文档正文中输入 URL 时一样？如果可以，我该怎么做？现在，它甚至不允许我编辑条目以将 URL 变成链接，如果允许，每次我自动更新参考资料时我都会丢失它。

我正在使用 Word 2013。

答案1

以下宏代码似乎对我有用：

Sub Add_Hyperlinks_Bibliography()
On Error Resume Next
Set rngSearch = Selection
For I = 1 To ActiveDocument.Bibliography.Sources.Count
 Selection.HomeKey Unit:=wdStory
 strStyle = "Intensieve benadrukking"
 strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL")
 strAddress = strSearch
 With rngSearch.Find
    Do While .Execute(findText:=strSearch, MatchCase:=False, MatchWholeWord:=False) = 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

显然，每次刷新书目字段时都必须执行此代码

相关内容