Word引用变蓝

kouzhaojun

于 2025-03-31 17:27:50 发布

阅读量483

点赞数 11

文章标签： c# 开发语言

本文链接：https://blog.csdn.net/kouzhaojun/article/details/146872691

版权

STEP 1：设置交叉引用

设置交叉引用后，引用部分字体颜色与原文一致，如红框内所示。

STEP 2：编写宏

为增加学术论文可读性，论文中的文献引用和图表的交叉引用字体常设置为特殊颜色。手动一个个设置相当繁琐，我们可以利用Word的宏实现批量修改交叉引用字体颜色。

2.1 依次单击“视图→宏→查看宏→创建”

2.2 在弹出对话框中点击“创建”

2.3 清空代码区域

2.4 输入以下代码

Sub CitingColor()
    For i = 1 To ActiveDocument.Fields.Count '遍历文档所有域
        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 'Word自带的交叉引用的域代码起始4位是" REF"（注意空格），EndNote插入的引用域代码的起始14位是" ADDIN EN.CITE"，Zotero插入的引用域代码的起始31位是" ADDIN ZOTERO_ITEM CSL_CITATION"。根据需求可添加其他类型。
        ActiveDocument.Fields(i).Select '选中上述几类域
        Selection.Font.Color = wdColorBlue '设置字体颜色为蓝色,也可以使用以下代码设置为任意颜色Selection.Font.Color = 12673797
        End If
    Next
End Sub