批量修改word文档交叉引用的颜色

如果文中具有大量图表引用，通常在word中使用交叉引用功能，必要时需要对交叉引用进行突出显示，例如标记为蓝色。但是在执行更新域功能后，或者原本未设置交叉引用颜色，交叉引用均为蓝色。

可使用word中的宏命令使用VB语言批量修改颜色：

视图→宏→查看宏→创建→删除多余代码→输入以下代码

Sub Macro1()

'

' Macro1 Macro

' 宏在 2013-1-13 由 admin 录制

'

For i = 1 To ActiveDocument.Fields.Count

If Left(ActiveDocument.Fields(i).Code, 4) = " REF" Then

' 如果是交叉引用域

ActiveDocument.Fields(i).Select   '选中该域

Selection.Font.Color = wdColorBlue  '字体颜色设为蓝色

End If

Next

End Sub

→点击绿色箭头运行（F5）

则文章中所有交叉引用均变为蓝色。