커서가있는 위치에서 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에서 의미하는 바를 알 수 있고 자체의 의미 대신 사용할 수 있는지 여부를 탐색 할 수 있습니다. 코드를 눌러 F1의 모든 변수의 이름을 선택 : 자신에 관해서는, 나는 당신이 주장하고자 할 경우에는 엑셀 :-)

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 

과 논쟁하지 않습니다. 같은 단어를 사용하는 경우 Excel에 동일한 단어가 필요한지 여부를 알려줍니다.