incluindo hiperlinks na bibliografia no Word 2013

1

Eu estou lutando para adicionar hiperlinks na minha bibliografia gerada pelo Word (eu uso a palavra 2013). Eu vim com a seguinte solução (eu peguei emprestado algum código da resposta de Raystafarian para Encontre todas as instâncias de um texto e torne-o um hyperlink com uma macro )

Sub Add_Hyperlinks_Bibliography()
On Error Resume Next
Set rngSearch = ActiveDocument.Range
For I = 1 To ActiveDocument.Bibliography.Sources.Count
   strStyle = "Intensieve benadrukking"
   strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL")
   strAddress = strSearch
   With rngSearch.Find
      Do While .Execute(findText:=strSearch) = 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

Isso parece funcionar bem para a maioria das fontes, mas infelizmente (e não consigo explicar por que isso acontece), para algumas fontes, ele não parece alterar a URL em um hiperlink. Se eu procurar manualmente pelo URL, eu o encontro. Talvez alguém possa explicar por que o código, em alguns casos, não substitui o URL por um hiperlink?

Pesquisei no site por questões semelhantes e encontrei apenas este tópico: Incluindo hiperlinks nas referências do Microsoft Word 2013 , que não tiveram respostas.

    
por aroukouth 15.11.2016 / 11:52

0 respostas