Comment faire pour exécuter le script VBA dans MS-Word à partir de l'emplacement du curseur?

Question

J'ai la

Sub FormatOMaths() 

    Dim formula As OMath 

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

End Sub 

suivante Cette exécute toujours à partir du début du document. Comment puis-je modifier le script à partir de l'endroit où se trouve mon curseur jusqu'à la fin du document? Merci,

Answer 1

Je n'appellerais pas ma variable Formula car c'est un mot qu'utilise Excel lui-même. Vous pourriez explorer si Excel saura ce que vous voulez dire et utilisera votre sens plutôt que le sien. Quant à moi, je ne discute pas avec 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 

Si vous ne souhaitez discuter: Sélectionnez le nom de toutes les variables dans votre code et appuyez sur F1. Vous serez informé de ce qu'Excel a besoin du même mot, s'il utilise le même mot.