文献引用批量标注蓝色-Zotero/EndNote

¶需求

文献引用格式颜色不突出，很多时候需要将引用文献的标注改为指定颜色（一般为蓝色），逐个修改太慢且不优雅，网上检索发现快速修改方法，隧记录，方便后续检索。

标注效果

¶操作方案

¶1. Word 打开：视图 → 宏 → 查看宏

¶2. 添加宏

创建宏

粘贴宏代码

代码如下：

Sub CitingColor()
    For i = 1 To ActiveDocument.Fields.Count '遍历文档所有域
        ' Word 自带的交叉引用的域代码起始 4 位是 " REF" (注意空格)
        ' Endnote 插入的引用域代码的起始 14 位是 " ADDIN EN.CITE"
        ' Zotero 插入的引用域代码的起始 31 位是 " ADDIN ZOTERO_ITEM CSL_CITATION"，可根据需求添加其他类型
        If Left(ActiveDocument.Fields(i).Code, 4) = " REF" Or Left(ActiveDocument.Fields(i).Code, 14) = " ADDIN EN.CITE" Or Left(ActiveDocument.Fields(i).Code, 31) = " ADDIN ZOTERO_ITEM CSL_CITATION" Then
        ActiveDocument.Fields(i).Select ' 选中上述几类域
        Selection.Font.Color = wdColorBlue ' 设置字体颜色为蓝色，可改为其他颜色，如 RGB(255,0,0)
        End If
    Next
End Sub