需求

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

标注效果

操作方案

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

2. 添加宏

创建宏

粘贴宏代码

代码如下：

1
2
3
4
5
6
7
8
9
10
11
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

3. 运行宏

运行创建的 CitingColor 宏，将会自动将全文的引用文献格式改为蓝色。

宏运行效果

实测，针对 Author-Date 和 Number 格式均可使用。

参考