You need a macro to apply the blue color automatically. The macro must be
named "InsertCrossReference" in order to run instead of the built-in command
whenever you select Insert > Reference > Cross-reference. The macro below
should do what you want. It applies the same blue color as used for
hyperlinks (wdColorBlue). See the comments in the code for an explanation of
what happens.
Sub InsertCrossReference()
Dim oRange As Range
Dim oColor_Old As WdColor
Set oRange = Selection.Range
'Save current font color
oColor_Old = oRange.Characters(1).Font.Color
'Diaplay cross-reference dialog box
Dialogs(wdDialogInsertCrossReference).Show
'Include the inserted cross-reference in oRange
oRange.End = Selection.End
'Apply blue color to oRange
oRange.Font.Color = wdColorBlue
'Reset color after cross-reference
Selection.Font.Color = oColor_Old
Set oRange = Nothing
End Sub
For information about installing macros, see:
http://www.gmayor.com/installing_macro.htm
--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word