标签：
为增加学术论文可读性，论文中的文献引用和图表的交叉引用字体常设置为蓝色。参考文献管理博主用的是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
文献引用字体效果：
（注：宏代码改自网络版本）
标签：
原文地址：http://www.cnblogs.com/hughyu/p/5628406.html
