在 Word 中更改 OMaths 对象的颜色

Question

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

我已经成功地编写了一些 VBA 来将所有方程式转换为打开时的专业格式，现在需要帮助来更改颜色。我尝试了 select 第三个等式的 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

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

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

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

Answer 1

例如：

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

在 Word 中更改 OMaths 对象的颜色

Changing the Color of OMaths Objects in Word

vba

ms-word