Это не идеальное решение. (Вам необходимо создать закладки после того, как библиография будет завершена, потому что обновление поля библиографии удаляет некоторые из этих закладок.)
Создание закладок
Сначала создайте закладки для каждой из ссылок в вашей библиографии. Чтобы упростить задачу, переключите коды полей для цитирования в тексте и присвойте каждой записи в библиографии то же имя, что и у соответствующего источника. В Word обычно используются первые три буквы имени автора и две последние цифры даты. Например, в документе, который я тестирую, один из моих примеров источников - «Доу, Дж. (2013) Книга о материале. "Когда вы переключаете коды полей в текстовом цитировании, оно отображается как {CITATION Doe13 \| 1033}. Итак, я назвал закладку для этой индексной записи Doe13.
Макрос для добавления ссылок
Далее я создал макрос для добавления ссылок на каждую цитату.
Sub LinkCitetoSource()
'
' LinkCitetoSource Macro
' Automatically links an in-text citation to the corresponding bibliography entry.
'
Dim fld As Field
Dim citation As String
Dim bkmrk As String
For Each fld In ActiveDocument.Fields
If fld.Type = wdFieldCitation Then
citation = fld.Code.Text
bkmrk = Mid(citation, 11, 5)
MsgBox prompt:=bkmrk
fld.Select
Selection.Expand Unit:=wdWord
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", SubAddress:=bkmrk
End If
Next
End Sub