为增加学术论文可读性,论文中的文献引用和图表的交叉引用字体常设置为特殊颜色。手动一个个设置相当繁琐,我们可以利用Word的宏实现批量修改交叉引用字体颜色。
1.依次单击“视图→宏→查看宏→创建”
2.在弹出对话框中点击“创建”
3.清空代码区域
4.输入以下代码
Sub CitingColor()
For i = 1 To ActiveDocument.Fields.Count '遍历文档所有域
If Left(ActiveDocument.Fields(i).Code, 4) = " REF" Then 'Word自带的交叉引用的域代码起始4位是" REF"(注意空格
ActiveDocument.Fields(i).Select '选中上述几类域
Selection.Font.Color = wdColorBlue '设置字体颜色为蓝色,也可以使用以下代码设置为任意颜色Selection.Font.Color = 12673797
End If
Next
End Sub