Word宏学习之引用字体颜色

Posted 2020-08-01

    为增加学术论文可读性，论文中的文献引用和图表的交叉引用字体常设置为蓝色。参考文献管理博主用的是EndNote，但其无法实现该功能。手动一个个设置相当繁琐，我们可以利用Word的宏实现这一功能。上代码：

1 Sub BlueCiting()
2     For i = 1 To ActiveDocument.Fields.Count ‘遍历文档所有域
3         If Left(ActiveDocument.Fields(i).Code, 4) = " REF" Or Left(ActiveDocument.Fields(i).Code, 14) = " ADDIN EN.CITE" Then ‘Word自带的交叉引用的域代码起始4位是" REF"（注意空格），EndNote插入的引用域代码的起始14为是" ADDIN EN.CITE"。根据需求可添加其他类型。
4             ActiveDocument.Fields(i).Select ‘选中上述几类域
5             Selection.Font.Color = 12673797 ‘设置字体颜色
6         End If
7     Next
8 End Sub

文献引用字体效果：

（注：宏代码改自网络版本）