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

688
ViennaMike

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

  1. USDOT. ЕГО База данных преимуществ. ЕГО Знания Ресурсы. [Онлайн] [Цитируется: 7 6, 2016.] www.itsbenefits.its.dot.gov.

Есть ли способ сделать URL (www.itsbenefits.its.dot.gov) автоматически сгенерированной гиперссылкой, как это происходит при вводе URL-адресов в основной текст документа? Если да, то как мне это сделать? Прямо сейчас, это даже не позволяет мне редактировать запись, чтобы сделать URL-адрес ссылкой, и если это произойдет, я потеряю ее всякий раз, когда я автоматически обновляю ссылки.

Я использую Word 2013.

1

1 ответ на вопрос

0
aroukouth

Следующий макрос код, кажется, работает для меня:

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

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

Похожие вопросы