Zotero在word中插入带超链接的参考文献/交叉引用/跳转参考文献

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.icon-default.png?t=N7T8https://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&, n2&ActiveWindow.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.Fields
' check 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_Bibliography"Selection.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

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/151572.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

Windows SDK

Windows SDK

Windows SDK (10.0.22621) for Windows 11，版本 22H2 (2023 年 10 月更新) 提供了用于生成 Windows 应用程序的最新标头、库、元数据和工具。 使用此 SDK 为Windows 11版本 22H2 和早期 Windows 版本生成通用 Windows 平台 (UWP) 和 Win32 应用程序。 Windows 应用…
阅读更多...
华纳云服务器怎么清理cdn缓存?

华纳云服务器怎么清理cdn缓存?

清理 CDN(内容分发网络)缓存通常需要通过 CDN 提供商的管理界面或 API 进行操作。不同的 CDN 提供商可能有不同的方法和步骤，以下是一个通用的清理 CDN 缓存的一般步骤： 1. 登录到 CDN 提供商的管理界面： 打开你所使用的 CDN 提供商的网站。 …
阅读更多...
武汉凯迪正大KDHG-220P互感器综合测试仪

武汉凯迪正大KDHG-220P互感器综合测试仪

主要特点 武汉凯迪正大KDHG-220P互感器综合测试仪，仅需进行简单的数字设定：设定互感器的额定参数。仪器将全过程自动记录数据，并自动将变比极性、伏安特性曲线等计算并显示出来，省去换线、手动调压、人工记录、整理、描曲线等烦琐…
阅读更多...
openAI API简介 怎么写提示词获取更好的结果。prompt-engineering使用指南。人工智能的重大里程碑事件及技术创新chatGPT1

openAI API简介 怎么写提示词获取更好的结果。prompt-engineering使用指南。人工智能的重大里程碑事件及技术创新chatGPT1

OpenAI API 几乎可以应用于任何任务。 包括内容或代码生成、摘要、对话、创意写作、图片生成、文本语音互转等。 关键概念 文本生成：提示，输入越精准，输出越精准。 获得更好结果的几种策略： 1.写出清晰的指令：包含…
阅读更多...
【图数据库实战】HugeGraph图计算流程

【图数据库实战】HugeGraph图计算流程

HugeGraph是一款易用、高效、通用的开源图数据库系统（Graph Database，GitHub项目地址）， 实现了Apache TinkerPop3框架及完全兼容Gremlin查询语言， 具备完善的工具链组件，助力用户轻松构建基于图数据库之上的…
阅读更多...
Docker之虚悬镜像（查看、删除）

Docker之虚悬镜像（查看、删除）

虚悬镜像: 仓库名、标签都是的镜像，俗称dangling image 查看 docker image ls -f danglingtrue删除 虚悬镜像已经失去存在价值，可以删除 docker image prune
阅读更多...
Spring注解开发

Spring注解开发

注解开发 注解开发定义bean 使用Component定义bean 核心配置文件中通过组件扫描加载bean Spring提供Component注解的三个衍生注解 Controller：用于表现层bean定义Service：用于业务层bean定义Repository：用于数据层bean定义 纯注解开发 Spr…
阅读更多...
C# static关键字详解

C# static关键字详解

在C#中，static关键字有许多重要的用途。以下是关于如何使用static关键字的一些详细信息： 静态类（Static Classes）：静态类是不能实例化的类，它的所有成员都是静态的。静态类常常用作工具类或帮助类&#xff…
阅读更多...
【双指针】快乐数

【双指针】快乐数

快乐数 文章目录 快乐数01 题目详细02 算法原理快慢指针 03 代码Java代码;C代码 01 题目详细 202. 快乐数 编写一个算法来判断一个数 n 是不是快乐数。 「快乐数」 定义为： 对于一个正整数，每一次将该数替换为它每个位置上的数字的平方和。然后重复这…
阅读更多...
c++模式之单例模式详解

c++模式之单例模式详解

c模式之单例模式详解 1.概念2.懒汉模式示例（缺点）3.懒汉模式线程安全4.饿汉式创建单例5.饿汉模式线程示例 1.概念 单例模式是指在整个系统生命周期内，保证一个类只能产生一个实例，确保该类的唯一性. 使用单例两个原因&#xff1a…
阅读更多...
解决 requests 2.28.x 版本 SSL 错误

解决 requests 2.28.x 版本 SSL 错误

最近，在使用requests 2.28.1版本进行HTTP post传输时，您可能遇到了一个问题，即SSL验证失败并显示错误消息(Caused by SSLError(SSLCertVerificationError(1, [SSL: CERTIFICATE_VERIFY_FAILED] certificate verify failed: unable to get loc…
阅读更多...
Stream流常见操作

Stream流常见操作

.stream() 常用方法 .forEach（） 该方法接收一个 Consumer 接口函数，会将每一个流元素交给该函数进行处理 .filter()：过滤 该接口接收一个 Predicate 函数式接口参数（可以是一个Lambda或方法引用）作为筛…
阅读更多...
【FFmpeg实战】ffmpeg播放器-音视频解码流程

【FFmpeg实战】ffmpeg播放器-音视频解码流程

音视频介绍 音视频解码流程 FFmpeg解码的数据结构说明 AVFormatContext：封装格式上下文结构体,全局结构体,保存了视频文件封装格式相关信息AVInputFormat：每种封装格式，对应一个该结构体AVStream[0]：视频文件中每个视频&#xff…
阅读更多...
二十三种设计模式全面解析-职责链模式（Chain of Responsibility Pattern）：解放代码责任链，提升灵活性与可维护性

二十三种设计模式全面解析-职责链模式（Chain of Responsibility Pattern）：解放代码责任链，提升灵活性与可维护性

在软件开发中，我们经常面临处理请求或事件的情况。有时候，我们需要将请求或事件依次传递给多个对象进行处理，但又不确定哪个对象最终会处理它。这时候，职责链模式（Chain of Responsibility Pattern）就能派上…
阅读更多...
LongAdder功能和原理

LongAdder功能和原理

AtomicLong能保证并发情况下计数的准确性，其内部通过CAS来解决并发安全性的问题。 AtomicLong的缺点： 可以看到在高并发情况下，当有大量线程同时去更新一个变量，任意一个时间点只有一个线程能够成功，绝大部分的线程在尝…
阅读更多...
自动驾驶学习笔记（十）——Cyber通信

自动驾驶学习笔记（十）——Cyber通信

#Apollo开发者# 学习课程的传送门如下，当您也准备学习自动驾驶时，可以和我一同前往： 《自动驾驶新人之旅》免费课程—> 传送门 《Apollo Beta宣讲和线下沙龙》免费报名—>传送门 文章目录 前言 Cyber通信 编写代码 编译程序 运行…
阅读更多...
FISCOBCOS入门（十）Truffle测试helloworld智能合约

FISCOBCOS入门（十）Truffle测试helloworld智能合约

本文带你从零开始搭建truffle以及编写迁移脚本和测试文件，并对测试文件的代码进行解释，让你更深入的理解truffle测试智能合约的原理，制作不易，望一键三连 在windos终端内安装truffle npm install -g truffle 安装truffle时可能出现网络报错，多试几次即可 truffle --vers…
阅读更多...
虚函数 纯虚函数 抽象类

虚函数 纯虚函数 抽象类

// ! 虚函数与纯虚函数 /*** 定义一个函数为虚函数，不代表这个函数为不被实现的函数* 是为了允许用基类的指针来调用子类的这个函数* 定义为一个函数为纯虚函数，才代表这个函数没有被实现* 定义一个纯虚函数是为了实现一个接口，起到规范作用&…
阅读更多...
js 对象数组删除某一个特定的对象

js 对象数组删除某一个特定的对象

for (let i 0; i < this.tableData.length; i) {if (this.tableData[i].id row.id) {this.tableData.splice(i, 1);i--; // 此处删除之后 将i向前递进一个} }
阅读更多...
C#入门（2）： namespace、类

C#入门（2）： namespace、类

namespace 在C#中&#xff0c;名称空间&#xff08;Namespace&#xff09;是一种包含类、结构、接口、枚举和委托的容器。名称空间可以帮助我们组织代码&#xff0c;并防止命名冲突。例如&#xff0c;两个开发团队可能都创建了名为File的类&#xff0c;但如果这两个类位于不同…
阅读更多...
最新文章

Copyright @ 2022~2023