Question Liaison automatique des citations à une entrée bibliographique


J'essaie de trouver la meilleure façon de créer automatiquement des liens hypertexte dans un document à partir d'une citation dans le texte de « (Auteur, 2014) », à son entrée bibliographique respective de telle sorte que l'on voit dans les articles de journaux viennent. Je travaille actuellement avec Word 2013 en utilisant son gestionnaire de référence intégré, ainsi que Adobe Acrobat Pro, et j'ai pu lier manuellement les citations à la notice bibliographique.

Est-il possible de le faire avec un processus plus efficace?


2
2017-12-12 08:20


origine




Réponses:


Ce n'est pas une solution parfaite. (Vous devez créer les signets après la bibliographie est finalisée, car la mise à jour du champ bibliographie supprime certains de ces signets.)

Créer des signets

Créez d'abord des signets pour chacune des références de votre bibliographie. Pour faciliter les choses, basculez les codes de champ pour une citation dans le texte et attribuez à chaque entrée de la bibliographie le même nom que la source correspondante. Word utilise généralement les trois premières lettres du nom de l'auteur et les deux derniers chiffres de la date. Par exemple, dans le document que je teste, une de mes sources d’échantillonnage est «Doe, J. (2013) A Book About Stuff». Lorsque vous basculez les codes de champ sur la citation dans le texte, il apparaît comme {CITATION Doe13 \ | 1033}. Donc, j'ai nommé le signet pour cette entrée d'index Doe13.

Macro pour ajouter des liens

Ensuite, j'ai créé une macro pour ajouter les liens à chaque citation.

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

1
2017-12-15 16:19



Génial, cela semble bien fonctionner. Un problème cependant, quand il crée le lien hypertexte, il semble que la phrase entière avant que la citation soit également un lien hypertexte. Pouvez-vous recommander un correctif pour cela? - Dylansq
J'avais apparemment copié une version précédente de la macro, où j'ai utilisé la mauvaise unité pour étendre la sélection. Je l'ai changé de wdSentence à wdWord, ce qui devrait fonctionner. - Kelly Tessena Keck


La manière la plus simple de le faire est de cliquer sur la référence dans le texte et de sélectionner "convertir en texte statique". Vous pouvez ensuite éditer le texte quand vous le souhaitez, mais il laisse la référence dans la liste de référence et vous pouvez toujours ajouter la référence "dynamique" dans le texte ultérieurement. Ce n'est pas idéal, mais cela n'implique pas de programmation


1
2017-12-29 18:21