1

Я изо всех сил пытаюсь добавить гиперссылки в мою сгенерированную Word библиографию (я использую слово 2013). Я придумал следующее решение (я позаимствовал некоторый код из ответа Райстафариана, чтобы найти все экземпляры текста и сделать его гиперссылкой с макросом)

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

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

Я искал на сайте похожие вопросы и нашел только эту ветку: Включая гиперссылки в ссылках на Microsoft Word 2013, на которые не было ответов.

0