Vba 更改Word中OMATH对象的颜色

我正在尝试编写一个宏，将报告中每三个等式的颜色更改为深蓝色（如下所示）：

我已经成功地编写了一个VBA，将所有方程转换为开放的专业格式，现在需要帮助更改颜色。我尝试了一个for循环来选择第三个等式，将其涂成蓝色，然后转到下一个等式，但没有成功。上述代码如下：

Dim j As Integer    
Dim eqRange As Range
For j = 3 To ActiveDocument.Range.OMaths.Count
Set eqRange = ActiveDocument.Range.OMaths.Item(j)
eqRange.Select
Selection.Font.ColorIndex = wdDarkBlue
j = j + 3
Next j

我对这段代码没有任何成功，当我逐行运行它时，我可以看出它没有选择任何东西，因此颜色没有改变

我还将在下面包含我前面提到的关于转换的代码，以供参考：

Dim i As Integer
For i = 1 To ActiveDocument.Range.OMaths.Count
ActiveDocument.Range.OMaths.Item(i).BuildUp
Next i

例如：

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 3 To .OMaths.Count Step 3
    .OMaths(i).Range.Font.ColorIndex = wdDarkBlue
  Next
End With
Application.ScreenUpdating = True
End Sub

---

这正是我想要的，非常感谢你的帮助！