Einschließen von Hyperlinks in Microsoft Word 2013-Referenzen

814
ViennaMike

Ich verwende die Zitierungsfunktion in Microsoft Word und erstelle am Ende meines Dokuments eine Referenzliste. Ein Beispiel für die generierte Referenz ist:

  1. USDOT. ITS-Zusatzdatenbank. ITS-Knowledge-Ressourcen. [Online] [Zitat: 7. 6. 2016.] www.itsbenefits.its.dot.gov.

Gibt es eine Möglichkeit, die URL (www.itsbenefits.its.dot.gov) zu einem automatisch generierten Hyperlink zu machen, wie wenn ich URLs in den Haupttext des Dokuments eingebe? Wenn ja, wie mache ich das? Im Moment kann ich den Eintrag nicht bearbeiten, um die URL zu einem Link zu machen. Wenn dies der Fall ist, würde ich ihn verlieren, wenn ich die Verweise automatisch aktualisiert habe.

Ich verwende Word 2013.

1

1 Antwort auf die Frage

0
aroukouth

Der folgende Makrocode scheint für mich zu funktionieren:

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

Natürlich müssen Sie diesen Code jedes Mal ausführen, wenn Sie das Bibliographiefeld aktualisieren

Verwandte Probleme