如何在MS Word中从光标位置运行VBA脚本？

Question

我有以下

Sub FormatOMaths() 

    Dim formula As OMath 

    For Each formula In ActiveDocument.OMaths 
     formula.Range.Font.TextColor = RGB(255, 0, 0) 
    Next 

End Sub 

这始终执行从文档的开头开始。我怎样才能修改脚本从光标所在的位置到文档的末尾运行？谢谢，

Answer 1

我不会打电话给我的变量Formula因为这是一个词Excel使用自己。您可能会探索Excel是否会知道您的意思，并使用您的意思而不是自己的意思。至于我自己，我不与Excel :-)

Dim Frm As OMath 

For Each Frm In ActiveDocument.OMaths 
    With Frm.Range 
     If .Start >= Selection.OMaths(1).Range.Start Then 
      .Font.TextColor = RGB(255, 0, 0) 
     End If 
    End With 
Next 

认为如果你想争辩：在你的代码，然后按F1选择任何变量名。如果Excel使用相同的单词，则会通知Excel需要相同的单词。