включая гиперссылки в библиографии в Word 2013

358
aroukouth

Я изо всех сил пытаюсь добавить гиперссылки в мою сгенерированную 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, на которые не было ответов.

1
Я заработал, изменив код «Set rngSearch = ActiveDocument.Range» на «Set rngSearch = Selection» aroukouth 7 лет назад 0
Заполните свой профиль немного, и вы можете оставить этот комментарий в качестве ответа, а затем принять его. Это хорошая вещь, потому что нам нравится видеть ответы на проблемы, а вы ответили на свою проблему. У кого-то еще может быть та же проблема, и если ваш ответ будет четко помечен как таковой, это поможет им. music2myear 7 лет назад 0

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

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