set color of zotero references in MSWord using VBA

zotero_word_formatting.vba

Sub FormatZoteroRefs()

Set objUndo = Application.UndoRecord
objUndo.StartCustomRecord ("Format Zotero refs")

For Each myStoryRange In ActiveDocument.StoryRanges
    For ii = 1 To myStoryRange.Fields.Count
        If InStr(1, LTrim(myStoryRange.Fields(ii)), "ADDIN ZOTERO_ITEM CSL_CITATION") = 1 Then
            Set rng = myStoryRange.Fields(ii).Result
            rng.Font.ColorIndex = 9 ' this seems to be dark blue
        End If
    Next ii
Next myStoryRange

objUndo.EndCustomRecord
End Sub