Zotero-word中引用跳转到参考文献/建立超链接-引用格式(Xie et al 2021, Achanta et al 2012)
参考文献格式:
引用格式：
，其中数字部分为超链接。
1.打开Word->视图->宏->点击，选查看宏
2.创建宏
3.将代码全部替换为下面这个代码
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 = 0Do 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(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 WithSelection.Find.ExecuteSelection.Paragraphs(1).Range.SelectWith ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=titleAnchor.DefaultSorting = wdSortByName.ShowHidden = TrueEnd WithaField.SelectSelection.Find.ClearFormattingWith 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 = Len(numOrYear)style = Selection.styleActiveDocument.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注：要为生成的链接设置样式，请取消注释该行， 并在那里写下您的样式。
'Selection.style = ActiveDocument.Styles("CitationFormating")
代码链接： Zotero
4. Ctrl+s保存，左下角重命名为ZoteroLinkCitation，关闭页面，并关闭Word。
5. 打开word，查看宏
6. 运行宏ZoteroLinkCitation
7. 引用展示
8. tips
前提：已经插入好引用，并构建好参考文献了。这个宏只是将两者添加超链接。
技巧：可以插完全部参考文献再运行！！
注意：该方法根据标题将作者日期或数字样式引用链接到他们的参考文献条目。它在字段中搜索数字（年份或序号），选择它，然后将其链接到 zotero 字段中的标题。尚不支持上标样式，因为选择数字会导致整个字段被链接替换。
9. 运行出错的解决办法
1. 问题界面:
2. 点击 调试，会出现下面的界面，会提示出现有问题的文献：
解决办法:
点击结束,WORD会跳到有问题的文献。
打开Zotero，查看有问题的文献。
检查标题，会议名称，页码等信息。
注：这个错误是标题出现问题了。找其他正确的文献，把正确的标题
复制过来，在这个正确的基础上修改成自己的标题名称。在重新添加文献，最后在运行
宏。
Zotero-word中引用跳转到参考文献/建立超链接-引用格式(Xie et al 2021, Achanta et al 2012)相关推荐
- Zotero如何在word中引用跳转到参考文献/建立超链接
省流目录 文章目录 问题:如标题 解决方案 1.打开word->视图->宏->点击,选查看宏 2.创建宏 3.将代码全部替换为下面这个 4. Ctrl+s保存,左下角重命名为Zote ...
- Word 中由EndNote生成的参考文献格式调整
一般在Word中由EndNote生成的参考文献格式或多或少会存在问题,通过实践将调整过程归纳为三个步骤: 第一步:Word中设置EndNote Bibliography样式.菜单栏选择开始选项卡-&g ...
- 用mendeley在word中插入文献_Mendeley教程-参考文献引用（论文撰写必备！）
Mendeley主要功能:参考文献管理 PDF文件阅读与标注 自动生成参考文献 Mendeley优势:免费 云同步 PDF关键词搜索功能强大 关于Mendeley的基本使用方法丁香通已做详细介绍:Me ...
- Word中如何实现图片自动编号与文中引用编号对应
当我们在进行大篇幅word文档的编写时,为了节约修改文章中图片所花费的大量时间,可以将图片自动编号,且让文中引用的顺序跟着图片顺序的变化而变化,具体操作如下: 1.将鼠标定在欲加编号的下方,点击&qu ...
- word中使用通配符批量将参考文献设置为上角标
目录 一.word中的通配符匹配规则 二.匹配单个参考文献 三.匹配多个参考文献 四.操作方式 (1)打开word中的替换功能 (2)输入要查找的内容 (3)选择替换格式 (4)点击替换 一.word ...
- word中如何对公式插入题注和引用
编辑公式 先在对应行把公式编辑好,如下图所示 插入题注 1.在公式前按一次"Tab"键,公式后编号前再按一次"Tab"键 2.将光标放在公式的最右边,按下 Ct ...
- python读取word中的文字格式_尝试使用Python解析xml格式的docx文档以打印粗体字
我有一个word docx文件,我想打印粗体在xml格式的文档中查看我要打印的单词似乎具有以下属性.在 Print this Sentence 特别是指定文本为粗体的w:rsidRPr="0 ...
- word中插入smartart图形(插入图形、设置图形格式、在下方插入图形、在后方插入图形）
文章目录 插入图形 选择图形 设置图形格式 添加图形 在下方添加图形(下级) 在后方添加图形(平级) 插入图形 选择图形 设置图形格式 添加图形 在下方添加图形(下级) 在后方添加图形(平级)
- word中写论文参考文献引用以及更新域F9键后出现多余公式
word中写论文,就用插入交叉引用即可,引用处的编号就会被关联了,然后有新的论文在参考文献那里插入,这个编号不会实时更新,而是需要选中引用处,右键更新域才可以,更新域是针对选中文本区域的,如果我们按下 ...
最新文章
- Android Studio快捷键每日一练（2）
- PAT Basic 1072
- goaccess-nginx日志分析工具简介
- 云栖掠影｜回首开源十年，RocketMQ 焕发新生
- 7-4 找到共同的选修课-hebust (10 分)
- Spring学习（十）Spring常见面试题汇总
- 探索性数据分析EDA及数据分析图表的选择
- python 导入数据对不齐_[Python] 大文件数据读取分析
- bzoj1005 [HNOI2008]明明的烦恼 prufer+组合数学
- 高德再回应导航错误致景区严重拥堵 这次复盘了事件原因
- asp.net关于页面不回发,不生成__doPostBack方法问题的完美解决方案--ZT
- 如何自学python-如何自学Python编程呢？老男孩Python学习方法
- UIApplication委托信息(多任务)
- ArcGIS设置默认金字塔弹出框
- Atitit 大数据体系树 艾提拉著 数据采集 gui自动化 爬虫 Nui自动化 Ocr技术 Tts语音处理 文档处理（office zip等） html文档处理解析 转换与处理
- 3D 数学（三角函数、坐标系、向量、摄像机跟随、点乘）
- nds linux模拟器下载,NDS模拟器Desmume
- [BZOJ3503][CQOI2014]和谐矩阵
- 正式工作后的一些变化和感受
- 数据分析学习记录（五）--Paired Comparison Plot App插件的使用