word批量修改交叉引用颜色

为增加学术论文可读性，论文中的文献引用和图表的交叉引用字体常设置为特殊颜色。手动一个个设置相当繁琐，我们可以利用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

5.保存并关闭第4步界面，点击第2步图片中的运行