Включение гиперссылок в ссылки Microsoft Word 2013

Я использую функцию цитат в Microsoft Word и создаю список ссылок в конце моего документа. Пример сгенерированной ссылки:

  1. USDOT. ЕГО База данных преимуществ. ЕГО Знания Ресурсы. [Онлайн] [Цитируется: 7 6, 2016.] 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

Очевидно, вам придется выполнять этот код каждый раз, когда вы обновляете поле библиографии

Источник
Другие вопросы по тегам