查询学校信息的网站,荣成城乡建设局网站,微信公众平台怎样开发,30_10_郑州网站制作Zotero以其丰富的插件而闻名#xff0c;使用起来十分的带劲#xff0c;最重要的是它是免费的、不卡顿#xff0c;不像某专业软件。
然而Zotero在word插入参考文献时#xff0c;无法为参考文献添加超链接#xff0c;这是一个不得不提的遗憾。
不过#xff0c;有大佬已经…Zotero以其丰富的插件而闻名使用起来十分的带劲最重要的是它是免费的、不卡顿不像某专业软件。
然而Zotero在word插入参考文献时无法为参考文献添加超链接这是一个不得不提的遗憾。
不过有大佬已经写出了基于Word VBA语言的代码可以为Zotero在Word中的参考文献一键增加超链接源代码如下所示
Word: Possibility to link references and bibliography in a document? - Zotero ForumsZotero is a free, easy-to-use tool to help you collect, organize, cite, and share research.https://forums.zotero.org/discussion/comment/148343/#Comment_148343
参考教程
Zotero-word中引用跳转到参考文献/建立超链接-引用格式文章浏览阅读7.4k次点赞10次收藏25次。该方法根据标题将作者日期或数字样式引用链接到他们的参考文献条目。https://blog.csdn.net/weixin_47244593/article/details/129072589
不过这个代码在运行的时候我遇到了一些严重的问题
-1. 当一个位置同时引用的参考文献2就只能为前两个文献添加超链接且第3个以及之后的参考文献。
-2. 引用了同一个作者的两篇及以上的参考文献只能给第一个文献添加超链接第二个就无法添加。
-3. 部分参考文献添加超链接失败提示Add BookMarks失败。
作为对VBA语言一窍不通的我硬着头皮啃了一下源代码对于问题1和问题2终于发现了问题所在在同一位置的参考文献添加链接时原代码无法正常更新下一处要添加超链接的位置最关键的是其中pos变量。为此我增加了对同一位置参考文献的不同引用的定位代码然后将定位结果复制给pos变量让代码循环执行时可以正确找到应该添加参考文献的位置
对于第3个问题有些人说是文献原始的标题有误我照着这个思路对代码进行了调试然而事情并不是这样有的文章标题里面就是有一些特殊符号比如#:。那么是否可能是这些特殊符号会带来bug事实证明会的。原代码的titleAnchor在生成短标题的时候就是用Replace把这些特殊符号以及空格全部用_代替然后Add为Bibliography的BookMark。在Bibliography中可以有这些特殊符号但是作为BookMark就不能有这些特殊符号。原代码没有将#替换为_因此增加一下就解决了。
修改后的代码如下
Public Sub ZoteroLinkCitation()
Dim nStart, nEnd
nStart Selection.Start
nEnd Selection.End
Application.ScreenUpdating False
Dim title As String
Dim titleAnchor As String
Dim style As String
Dim fieldCode As String
Dim numOrYear As String
Dim pos, n1, n2ActiveWindow.View.ShowFieldCodes True
Selection.Find.ClearFormatting
With Selection.Find.Text ^d ADDIN ZOTERO_BIBL.Replacement.Text .Forward True.Wrap wdFindContinue.Format False.MatchCase False.MatchWholeWord False.MatchWildcards False.MatchSoundsLike False.MatchAllWordForms False
End With
Selection.Find.Execute
With ActiveDocument.Bookmarks.Add Range:Selection.Range, name:Zotero_Bibliography.DefaultSorting wdSortByName.ShowHidden True
End With
ActiveWindow.View.ShowFieldCodes FalseFor Each aField In ActiveDocument.Fieldscheck if the field is a Zotero in-text referenceIf InStr(aField.Code, ADDIN ZOTERO_ITEM) 0 ThenfieldCode aField.Codepos 0Paper_i 1Do While InStr(fieldCode, title:) 0n1 InStr(fieldCode, title:) Len(title:)n2 InStr(Mid(fieldCode, n1, Len(fieldCode) - n1), ,) - 1 n1title Mid(fieldCode, n1, n2 - n1)titleAnchor Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(title, , _), #, _), , _), :, _), ,, _), -, _), ., _), (, _), ), _), ?, _), !, _)titleAnchor Left(titleAnchor, 40)Selection.GoTo What:wdGoToBookmark, name:Zotero_BibliographySelection.Find.ClearFormattingWith Selection.Find.Text Left(title, 255).Replacement.Text .Forward True.Wrap wdFindAsk.Format False.MatchCase False.MatchWholeWord False.MatchWildcards False.MatchSoundsLike False.MatchAllWordForms FalseEnd With查找引文BibliographySelection.Find.Execute选中对应引文的这一段Selection.Paragraphs(1).Range.SelectWith ActiveDocument.Bookmarks.Add Range:Selection.Range, name:titleAnchor.DefaultSorting wdSortByName.ShowHidden TrueEnd WithaField.SelectSelection.Find.ClearFormattingIf pos 0 Then 初始化起始位置和数组startPosition 1ReDim commaPositions(1 To 1) 查找逗号的位置(前提是作者和年份之间采用英文逗号分隔符否则要改为其他符号)DocommaPosition InStr(startPosition, Selection, ,)If commaPosition 0 Then 将逗号的位置添加到数组commaPositions(UBound(commaPositions)) commaPosition 更新起始位置以便下一次查找startPosition commaPosition 1ReDim Preserve commaPositions(1 To UBound(commaPositions) 1)End IfLoop While commaPosition 0End If 输出记录的逗号位置For j 1 To UBound(commaPositions)Debug.Print Comma found at position: commaPositions(j)Next jWith Selection.Find.Text ^#.Replacement.Text .Forward True.Wrap wdFindContinue.Format False.MatchCase False.MatchWholeWord False.MatchWildcards False.MatchSoundsLike False.MatchAllWordForms FalseEnd WithSelection.Find.ExecuteSelection.MoveLeft Unit:wdCharacter, Count:1Selection.MoveRight Unit:wdCharacter, Count:posSelection.Find.ExecuteSelection.MoveLeft Unit:wdCharacter, Count:1Selection.MoveRight Unit:wdWord, Count:1, Extend:wdExtendnumOrYear Selection.Range.Text pos commaPositions(Paper_i) - 1Paper_i Paper_i 1style Selection.style插入超链接ActiveDocument.Hyperlinks.Add Anchor:Selection.Range, Address:, SubAddress:titleAnchor, ScreenTip:, TextToDisplay: numOrYearaField.SelectSelection.style style如果为文中的参考文献引用设定了格式那么需要取消下面的注释Selection.style ActiveDocument.Styles(CitationFormating)fieldCode Mid(fieldCode, n2 1, Len(fieldCode) - n2 - 1)LoopEnd If
Next aField
ActiveDocument.Range(nStart, nEnd).Select
End Sub
