Incluindo hiperlinks nas referências do Microsoft Word 2013

1

Estou usando o recurso de citações no Microsoft Word e criando uma lista de referências no final do meu documento. Um exemplo da referência gerada é:

  1. USDOT. Seu banco de benefícios. Seus recursos de conhecimento. [Online] [Citado: 7 6, 2016.] www.itsbenefits.its.dot.gov.

Existe uma maneira de obter o URL (www.itsbenefits.its.dot.gov) como um hiperlink gerado automaticamente, como é quando eu digito URLs no texto principal do documento? Se sim, como faço isso? No momento, nem sequer me permite editar a entrada para tornar o URL um link e, se o fizesse, eu o perderia sempre que atualizasse as referências automaticamente.

Estou usando o Word 2013.

    
por ViennaMike 26.07.2016 / 22:58

1 resposta

0

O código de macro a seguir parece funcionar para mim:

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

Obviamente, você teria que executar este código toda vez que atualizar o campo de bibliografia

    
por 15.11.2016 / 12:42