Termasuk hyperlink dalam referensi Microsoft Word 2013

1

Saya menggunakan fitur kutipan di Microsoft Word dan membuat daftar referensi di akhir dokumen saya. Contoh referensi yang dihasilkan adalah:

  1. USDOT. Database Manfaat ITS. Sumber Daya Pengetahuan ITS. [Online] [Dikutip: 7 6, 2016.] www.itsbenefits.its.dot.gov.

Apakah ada cara untuk membuat url (www.itsbenefits.its.dot.gov) menjadi hyperlink yang dibuat secara otomatis, seperti ketika saya mengetik URL ke dalam teks utama dokumen? Jika demikian, bagaimana saya melakukan ini? Saat ini, ia bahkan tidak mengizinkan saya mengedit entri untuk menjadikan URL tautan, dan jika ya, saya akan kehilangan entri itu setiap kali saya memperbarui referensi secara otomatis.

Saya menggunakan Word 2013.

ViennaMike
sumber

Jawaban:

0

Kode makro berikut tampaknya berfungsi untuk saya:

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

Jelas, Anda harus menjalankan kode ini setiap kali Anda menyegarkan bidang kepustakaan

aroukouth
sumber