Microsoft Word 2013 참조에 하이퍼 링크 포함

Microsoft Word에서 인용 기능을 사용하고 문서 끝에 참조 목록을 만듭니다. 생성 된 참조의 예는 다음과 같습니다.

USDOT. ITS 혜택 데이터베이스. ITS 지식 자원. [온라인] [인용 : 7 6, 2016]. www.disbenefits.its.dot.gov.

URL (www.itsbenefits.its.dot.gov)을 자동으로 생성 된 하이퍼 링크로 만들 수있는 방법이 있습니까? URL을 문서 본문에 입력 할 때와 마찬가지입니까? 그렇다면 어떻게해야합니까? 지금은 URL을 링크로 만들기 위해 항목을 편집 할 수 없으며 참조하는 경우 자동으로 참조를 잃어 버렸습니다.

Word 2013을 사용하고 있습니다.

— ViennaMike
소스

다음 매크로 코드가 나를 위해 작동하는 것 같습니다.

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

분명히 서지 필드를 새로 고칠 때마다이 코드를 실행해야합니다.

— aroukouth
소스